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ABSTRACT 


The  Department  of  Defense  (DOD)  is  seeking  software  system  requirements  for 
the  Army  Tactical  Missile  System  (ATACMS)  End-to-End  System,  which  comprises  both 
ATACMS  and  all  sensors,  links,  and  command  centers  which  enable  integration  across 
system  and  service  boundaries.  The  complexity,  multiple  interfaces,  and  joint  nature  of 
planned  ATACMS  operations  demands  accurate  specification  of  software  system 
requirements.  DOD  also  desires  automated  tools  capable  of  developing  rapid  prototypes 
to  assist  in  system  definition  and  reduce  system  risk. 

The  goals  of  this  thesis  are  to  provide  a  rigorous  model  which  can  be  utilized  to 
validate  current  specifications,  and,  to  demonstrate  CAPS  on  a  large  scale  project. 
Accomphshment  of  these  two  would  provide  a  needed  corroboration  of  the  ATACMS 
specification,  as  well  as  move  CAPS  out  of  the  purely  academic  environment. 

The  result  of  this  thesis  is  mixed.  Due  to  a  paucity  of  data  fi’om  which  to  derive 
the  requirements,  the  model  is  generic  in  nature  and  is  in  need  of  significant  customer 
evaluation,  which  is  not  forthcoming.  However,  CAPS  demonstrated  its  fundamental 
concept  within  the  bounds  of  the  project,  with  refinements  in  code  generation,  interface, 
and  graphics  either  incorporated  or  identified.  CAPS  is  ready  for  use  on  an  actual  project 
by  an  experienced  team  of  systems  analysts. 
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I.  INTRODUCTION 


A.  PROBLEM  STATEMENT 

The  requirements  of  modem  joint  warfare  have  driven  the  Department  of  Defense 
(DOD)  to  seek  improved  interoperability  between  systems  of  the  different  services  as  well 
as  more  responsive  and  flexible  employment  of  intra-service  systems.  Additionally,  the 
advent  of  modem  technological  warfare  has  placed  a  new  emphasis  on  Command, 
Control,  Communications,  Computers,  and  Intelligence  (C4I).  Combat  users  require  the 
ability  to  access  and  utilize  data  from  a  variety  of  platforms  in  an  environment  of  ever 
more  stringent  time  and  accuracy  demands.  The  ability  to  dehver  real-time  information 
from  sensor  to  shooter  is  the  primary  goal  of  the  new  integrated  systems  which  will  be 
fielded  in  the  next  century. 

Coexistent  with  the  increased  operational  capabilities  is  an  increase  in  the 
complexity  and  difiSculty  of  defining,  designing,  and  developing  complex  weapon  systems. 
DOD  recognizes  the  current  inadequacy  of  their  requirements  generation  process.  DOD 
desires  the  evaluation  of  automated  tools  to  assist  the  systems  analyst  in  rapidly 
developing  accurate  systems  requirements. 

The  topic  of  this  thesis  is  the  software  system  requirements  needed  for  the 
development  and  deployment  of  the  new,  long  range  Army  Tactical  Missile  System 
(ATACMS)  and  the  other  C4I  systems  which  together  comprise  what  is  termed  the  “End- 
to-End”  System.  The  new,  longer  ranged  ATACMS  necessitates  the  incorporation  of 
other  services’  systems  in  order  to  fully  achieve  its  maximum  combat  capability  but  this 
need  also  makes  systems  analysis  more  difficult. 

The  placement  of  the  ATACMS  within  a  “system  of  systems”  brings  with  it  several 
programmatic  difficulties.  Firstly,  without  any  single  cognizant  technical  authority  to  be 
responsible  for  the  entire  system,  each  system  component  is  developed  and  deployed 
without  planned  integration  with  any  of  the  others.  Secondly,  testing,  either 
developmental  or  operational,  is  difficult  and  often  prohibitively  expensive.  Thirdly, 
systems  are  integrated  after  their  requirements  are  fixed,  rather  than  defining  generic 
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requirements  to  which  new  components  can  be  designed.  Fourthly,  the  scale  and 
complexity  of  these  systems  require  the  use  of  computer  based  tools  to  assist  the  analyst  in 
accomplishing  the  analysis. 

To  address  these  difficulties  on  the  upgraded  ATACMS  project,  the  Director, 

Test,  Systems  Engineermg  &  Evaluation  developed  a  Memorandum  of  Agreement  (MO  A) 
[Ref  1]  which  attempts  to  encompass  the  entire  End-to-End  System  and  bring  together  all 
parties  responsible  for  fielding  a  successful  long  range  ATACMS  with  interoperability 
capabilities.  The  purpose  of  this  MOA  is  to  focus  on  interface  issues.  In  an  attempt  to 
minimize  or  eliminate  complete  system  testing,  the  DTSE&E  is  interested  in  modeling  and 
simulations  which  could  assist  in  determining  and  verifying  interface  and  component 
requirements. 

To  this  end,  the  Computer  Aided  Prototyping  System  (CAPS)  research  group  at 
the  Naval  Postgraduate  School  (NPS)  is  assisting  in  evaluating  and  refining  the  software 
system  requirements  for  the  ATACMS  End-to-End  System  as  well  as  demonstrate  the 
capabilities  and  suitability  of  CAPS  on  a  large  real  world  system. 

This  thesis  analyzes  the  ATACMS  system,  specifies  system  requirements,  identifies 
unknowns  and  constructs  a  model  using  CAPS  which  demonstrates  those  requirements  in 
a  operating  model  so  that  the  requirements  can  be  verified  and  refined  through  subsequent 
iterations.  Additionally,  CAPS  is  evaluated  as  a  requirements  generation  tool. 

B.  RAPID  PROTOTYPING  &  CAPS 

The  use  of  prototyping  in  engineering  hardware  has  a  long  and  successful  legacy 
but  is  relatively  unused  in  software  development.  The  application  of  software  prototyping 
to  the  ATACMS  requirements  analysis  enables  us  to  ascertain  the  vital  system  attributes 
without  completely  specifying  or  writing  the  code  for  the  entire  system.  In  fact, 
prototyping  is  most  appropriate  on  systems  lacking  strong  definition.  Since  the  target 
system  is  not  that  well  defined  it  becomes  necessary  to  make  several  iterations  of  the 
model,  each  being  verified  by  the  users  as  to  correctness  and  suitability. 
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This  use  of  a  prototype  model  constructed  rapidly  and  efficiently  is  only  possible 
through  the  use  of  computer  assistance.  The  CAPS  system  provides  a  set  of  integrated 
tools  optimized  for  the  rapid  development  of  reliable  and  accurate  real-time  prototypes. 
These  tools  allow  the  developer  to  design,  construct,  execute  and  debug  the  prototype. 

C.  METHODOLOGY  &  DELIVERABLES 

The  general  methodology  used  to  develop  the  requirements  and  construct  the 
prototype  consists  of  analyzing  pertinent  documents  defining  and  describing  the  End-to- 
End  System  components  to  determine  the  essential  system  attributes  and  constraints  on 
the  architectural  level.  From  this  analysis  a  series  of  models  based  on  a  single  instance  of  a 
“sensor  to  shooter”  path  is  constructed,  which  identifies  known  system  requirements, 
identifies  system  significant  unknowns,  and  where  necessary,  incorporates  substitute 
requirements  to  keep  the  thesis  at  the  UNCLASSIFIED  level.  Wherever  possible,  generic 
requirements  are  developed  so  as  not  to  limit  the  model’s  utility  to  a  single  instance.  The 
essence  of  the  work  is  in  its  simplicity  and  ability  to  distill  only  the  essentials  into  the 
model. 

The  deliverables  are  an  executable  prototypes  (with  an  non-executing  extension), 
the  protot3q)ing  language  description  for  each,  source  code,  and  this  thesis  write-up  which 
includes  an  evaluation  of  CAPS  as  a  requirements  generation  tool.  The  models  are 
available  for  review  by  any  of  the  DOD  and  ATACMS  stakeholders,  with  the  intention  of 
performing  subsequent  refinements  as  well  as  the  substitution  of  actual  classified 
parameters. 

D.  ORGANIZATION  OF  THESIS 

In  addition  to  this  introduction  the  thesis  contains  Chapter  n  which  provides 
sufficient  background  information  to  make  the  thesis  a  stand-alone  document.  Chapter  HI 
describes  the  analysis  and  the  three  iterations  of  the  models  in  detail.  Finally,  Chapter  IV 
provides  the  conclusions  of  the  research  and  some  recommendations  for  follow-on  work. 
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II.  BACKGROUND 


A.  TASKING 

In  1994,  the  OfiSce  of  the  Under  Secretary  of  Defense  began  development  of  a 
Memorandum  Of  Agreement  (MO  A)  which  would  establish,  among  other  items,  the 
system  level  Critical  Operational  Issues  (COI)  involved  in  the  operation  of  the  Army 
Tactical  Missile  System  (ATACMS)  End-to-End  System.  [Ref  1]  The  End-to-End 
System  contains  those  constituent  components  which  allow  the  ATACMS  to  access,  use, 
and  be  used  by  other  units  (or  even  other  services)  than  the  one  to  which  it  is  assigned. 
This  concept,  known  as  “sensor  to  shooter”,  consists  of  a  high  degree  of  interoperability 
and  connectivity,  allows  each  commander  a  wider  range  of  options  and  each  user  access  to 
more  applicable  and  timely  data,  and  acts  as  a  force  multiplier. 

The  MOA  was  necessary  since  many  of  the  assets  involved  in  successful 
employment  of  the  ATACMS  are  outside  the  cognizance  of  the  Army.  Recognizing  that 
the  majority  of  problems  do  not  occur  in  the  technical  performance  parameters  of 
individual  systems,  but  instead  involve  interoperability  and  connectivity  issues  [Ref  2], 
the  OflSce  of  the  Director,  Test,  Systems  Engineering  &  Evaluation  (ODTSE&E), 
approached  the  CAPS  research  group  at  NPS  about  using  CAPS  to  assist  in  defining 
requirements  and  identifying  COI’s  for  the  ATACMS  End-To-End  System  while  at  the 
same  time  demonstrating  CAPS  on  a  large  real  world  problem.  An  initial  request  to  use 
CAPS  as  a  tool  for  Developmental  Test  &  Evaluation  was  also  made,  but  later  deleted 
firom  the  tasking. 

The  Draft  MOA  defined  the  ATACMS  End-to-End  System  fi'om  the  battlefield 
architecture  for  deep  operations  as  defined  in  the  U.S.  Army’s  Integrated  Battlefield 
Targeting  Architecture  (IBTA)  Handbook.  For  the  purposes  of  defining  the  scope  of  the 
evaluation,  the  ATACMS  End-to-End  System  was  defined  as  follows: 

•  Target  Acquisition  (TA)  systems  include  the  Special  Operations 
Forces  (SOF),  GUARDRAIL  Common  Sensor  (GRCS),  Joint 
Surveillance  Target  Attack  Radar  System  (JSTARS),  Unmanned  Aerial 
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Vehicle  (UAV),  and  other  theater.  Army,  and  national  surveillance 
assets.  Target  acquisition  systems  include  the  procedures,  people, 
communications  and  automated  systems  in  the  Analysis  and  Control 
Element  at  Corps  level. 

•  Fire  Support  Command,  Control,  and  Communication  (FSC3) 
systems  include  the  procedures,  people,  communications  and 
automated  systems  in  the  Deep  Operations  Coordination  Cell  (DOCC) 
and  echelons  below  Corps  that  provide  targeting  and  fire  control 
information  to  the  firing  batteries. 

•  Fire  Mission  Execution  (FME)  systems  include  the  procedures, 
people,  communications  and  equipment  at  the  MLRS  battery  that 
execute  fire  missions  and  the  performance  of  the  missiles  and 
submunitions.  [Ref  3] 


ODTSE&E  has  a  particular  concern  with  the  interface  between  the  TA  and  the 
FSC3  elements  since  those  are  the  least  defined  with  respect  to  scenarios,  testing  criteria, 
and  requirements  research.  [Ref  1] 

B.  JUSTIFICATION 

Models  of  large  multi-platform  systems  can  be  correctly  represented  by  several 
methods  whose  approach  is  radically  different.  Each  method  has  its  strengths  and 
weaknesses.  While  appropriate  and  adequate  for  defining  the  scope  of  the  work,  the 
delineations  contained  in  the  MOA  were  not  a  suitable  basis  for  the  models.  The  general 
approach  is  to  define  the  ^stem  according  to  its  modular  functionality,  thus  allowing  the 
greatest  latitude  for  fiature  modification  and  also  making  interpretation  and  comment  by 
the  users  easier.  The  modeling  process  was  begun  with  the  intent  to  model  the  CAPS 
operators  using  generic  descriptions  which  enables  the  system  in  a  very  simple  manner  to 
represent  most,  or  possibly  all,  the  possible  scenarios.  Instead,  the  focus  on  a  single 
instance  of  “sensor  to  shooter”  is  used  since  the  attributes  of  each  individual  object  in  the 
system  are  very  similar  to  those  of  other  objects  performing  the  like  function  (further 
refinement  into  a  generic  model  is  anticipated  in  future  work). 
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A  second,  and  perhaps  more  important  and  constraining  difficulty,  is  the  lack  of  a 
unified  point  of  contact  through  which  to  access  the  information  needed  to  ensure  that  the 
represented  systems  are  being  accurately  modeled.  The  tasking  office  (ODTSE&E)  has 
no  demonstrated  technical  background  and  appears  to  be  a  reporting  point  for  the  various 
programs  involved  in  fielding  the  End-to-End  System.  Additionally,  much  of  the 
information  needed  is  highly  classified,  unattainable  or  in  aggregate  beyond  the  scope  of 
acquisition  fi’om  NPS.  Based  on  our  experience  with  fielded  militaiy  systems  and  with  our 
modeling  experience  in  the  CAPS  group,  a  decision  was  made  to  make  a  best  estimate  of 
the  requirements  for  the  End-to-End  System,  providing  our  own  specific  parameters  and 
abstractions.  Where  and  how  these  were  used  will  be  noted.  To  make  the  model  truly 
useable  the  parameters  of  the  actual  components  will  have  to  be  supplied,  verified,  or 
modified  by  the  user(s). 

A  third  difficulty  encountered  is  the  use  of  a  single  platform  for  the  CAPS  system. 
The  ATACMS  End-to-End  System  is  a  multi-platform  integration  of  distinct  operational 
subsystems.  It  is  possible,  within  limits,  to  abstract  the  operation  of  each  component  so  as 
to  represent  its  essential  characteristics  without  having  to  perform  each  individual  function 
of  that  component,  and  thus  to  some  extent  overcome  this  multi-platform/single 
processor  dichotomy.  Due  to  the  low  quantity  of  operators,  we  have  not  been  particularly 
constrained  in  our  modeling  using  this  method.  However,  as  the  operator  count  (and 
subsequent  det^)  grows,  at  some  point  it  is  likely  that  our  operator  loading,  combined 
with  the  demands  of  the  UNIX  system  will  exceed  our  single  processor  capability. 

Given  the  above,  the  model  which  is  submitted  is  a  single  instance  of  the 
ATACMS  End-to-End  System  using  parameters  supplied  in  part  by  the  documentation 
and  in  part  by  the  researchers.  The  purpose  of  this  model  is  to  demonstrate  that  a 
multilevel  model  could  be  quickly  constructed  and  to  pass  data  successfully  through  this 
model,  while  characterizing/identifying  the  most  important  attributes  of  the  operators.  In 
essence,  this  is  the  skeleton  on  which  the  details  of  subsequent  iterations  will  be  hung. 
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C.  GOALS 

Broadly  defined,  the  goal  of  the  research  is  to  meet  the  tasking  as  delineated 
while  demonstrating  CAPS.  The  Critical  Operational  Issues  for  the  three  functional 
areas  described  above  (HA)  and  which  would  impact  model  performance  are  as  follows: 

•  Target  Acquisition  (TA)  Do  target  acquisition  systems  provide 
adequate,  timely,  and  sufficient  target  location  data  to  FSC3  systems  to 
effectively  employ  the  ATACMS  variants? 

•  Fire  Support  Command,  Control,  and  Communication  (FSC3) 

Do  FSC3  systems  provide  timely  and  sufficient  mission  execution 
instructions  to  effectively  employ  the  ATACMS  variants? 

•  Fire  Mission  Execution  (FME)  Do  the  ATACMS  variants  achieve 
the  levels  of  lethality  and  effectiveness  specified  by  the  appropriate 
requirements  documents?  [Ref  3] 

Obviously,  these  are  very  general  questions  from  which  to  ascertain  specific  and 
verifiable  goals.  Though  included  in  the  project  Goals  Hierarchy  for  completeness,  the 
COI  for  FME  was  disregarded  in  the  model  construction.  These  COI  are  mainly 
concerned  with  hardware  and  physical  constraints  that  are  well  defined.  There  are  several 
high  fidelity  computer  models  already  in  service  to  use  as  a  testing  base  for  this  element. 
[Ref  4] 

The  goal  of  the  research  is  to  perform  a  requirements  analysis  using  CAPS  which 
would  further  define,  and,  where  possible  address,  the  COI’S  for  above  and  provide  the 
following  specifics  [Ref  5]: 

•  A  simplified  model  of  the  system’s  environment. 

•  A  description  of  the  system  goals  hierarchy  and  the  fimctions  it  must  perform. 

•  Performance  constraints  on  the  system. 

•  Implementation  constraints  on  the  system. 

•  Resource  constraints  for  the  development  project. 

•  The  specification  of  the  external  interfaces  of  the  major  components. 
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D.  INTEGRATED  BATTLEFIELD  TECHNOLOGY  ARCHITECTURE 

(IBTA)  HANDBOOK 

The  primary  source  for  information  about  the  ATACMS  End-to-End  System 
components  comes  from  a  U.S.  Army  publication  series  called  the  Integrated  Battlefield 
Technology  Architecture  Handbook  (IBTA)  [Ref  6],  Work  on  the  IBTA  was  begun  in 
1992  at  the  direction  of  US  Army  Assistant  Deputy  Chief  of  Staff  (Operations  and  Force 
Development).  The  purpose  of  the  IBTA  is  to  articulate  an  integrated  battlefield  targeting 
architecture  from  the  command  post  view  which  addresses  brigade<^corps  horizontal  and 
vertical  integration  requirements  for  maneuver,  fire  support,  Intelligence  and  Electronic 
Warfare  (lEW),  air  defense,  and  command  post  operations.  The  resulting  “golden 
threads”  establish  the  requirements,  interfaces,  and  throughputs  to  allow  data  exchange  at 
the  speed  and  accuracy  required. 

The  IBTA  delineates  current  and  planned  C4I  systems  either  employed  by  or 
integrated  with  the  Army  systems.  Force  architectures  for  the  years  1994, 1999,  and 
2010  are  included  to  show  the  progression  from  currently  fielded  systems  through  those  in 
the  acquisition  pipeline,  and  then  out  to  those  systems  in  the  definition  and  concept 
exploration  phase. 

The  IBTA  shows  the  architecture  relationships  between  units/systems  from  the 
national  level  all  the  way  down  through  the  individual  unit.  The  main  publication  in  the 
series  is  classified  SECRET.  Its  UNCLASSIFIED  topical  contents  are  (actual  parameters 
are  classified); 

•  An  overview  of  each  subsystem,  including  current  capabilities, 
projected  future  enhancements  and  a  classified  assessment  of  the 
system. 

•  Issue  specific  assessments  synopsizing  targeting  issues  by  proponent  in 
fact  sheet  format. 

•  Sensor-to-Shooter  “golden  thread”  vignettes  identifying  targeting  data 
paths  for  selected  systems. 
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The  vignettes  provide  a  text  description  of  each  “golden  thread”  and  analysis  of 
the  data  path  in  five  levels  of  detail: 


Level  I-  Macro  architecture. 

Level  n-  A  listing  of  components  in  the  data  path. 

Level  ni-  Approximate  timings  for  operators,  processors,  and 
transmissions. 

Level  IV-  Protocol,  baud  rates,  formats,  and  frequency  spectrums. 
Level  V-  Additional  “next-node”  transmission  data. 


The  other  primary  product  in  the  series  is  the  Architecture  Annex  which  shows  in 
graphical  form  the  architecture  relationships  between  all  systems  fi-om  Corps  to 
Division/Brigade,  as  well  as  the  individual  Corps,  Division,  and  Brigade  Architectures. 
The  architectures  are  also  presented  by  functional  areas  such  as  artillery,  air  defense,  and 
intelligence.  The  artillery  architectures  are  particularly  useful  for  analyzing  the  ATACMS 
End-to-End  System  since  the  inapplicable  architectures  are  absent.  [Ref  6  ]  [Ref.  7] 


E.  ATACMS  END-TO-END  SYSTEM 

The  ability  to  use  the  Army  TACMS  to  support  deep  operations  has  prompted  the 
Army  to  begin  vievring  the  ATACMS  more  broadly,  as  one  component  of  an  integrated 
system  which  can  provide  “sensor  to  shooter^’  capability  fi'om  a  wide  assortment  of 
reconnaissance  and  sensor  platforms  through  a  decentralized  control  system  to  widely 
separate  ATACMS  batteries.  This  employment  enables  more  flexible  use  and  response  by 
field  commanders. 

In  this  section,  the  various  components  which  can  and  will  be  expected  to  integrate 
into  the  End-to-End  System  are  discussed.  In  general  the  system  has  been  divided  into 
four  fimctional  areas:  sensors,  command  center,  links,  and  shooter.  Detailed  description 
of  the  actual  ATACMS  firing  element  architecture  (as  opposed  to  the  End-to-End  System) 
is  not  included,  as  mentioned  earlier,  due  to  its  system  maturity.  The  links  are  between 
sensor-command  center,  command  center-shooter,  or  are  contained  within  the  described 
subsystems  (important  for  decomposition). 
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1.  Sensors 

The  IBTA  contains  all  current  and  planned  sensors  which  associated  field  units  will 
encounter.  Some  of  these  sensors  are  used  primarily  for  purposes  other  than  artillery 
strikes  and  are  not  included  in  this  discussion.  The  range  of  sensors  include  F.T.TNTT 
SIGINT,  and  HUMINT  sources.  Some  of  the  assets  are  Army,  some  are  Air  Force  and 
some  are  national  assets.  Detailed  descriptions  of  selected  sensors  are  detailed  below 
within  the  limits  of  classification.  [Ref  6  ]  [Ref  7]  Refer  to  Figure  (1). 


•  Joint  Surveillance  and  Target  Attack  Radar  System  (JSTARS) 
This  Air  Force  airborne  sensor  provides  continuously  updated  data  on 
enemy  force  moving  vehicles.  Data  provided  includes  direction, 
location,  numbers  and  rates  of  movement  of  enemy  vehicles.  It  also 
senses  vehicular  traffic  associated  with  command  posts  and  air  defense 
sites.  No  target  ID  or  correlation  is  provided.  A  Moving  Target 
Indicator  (MTI)  is  provided.  Data  is  collected  across  a  corps  area 
using  a  limited  Synthetic  Aperture  Radar  (SAR).  The  current  JSTARS 
interfaces  with  the  Ground  Station  Module  (GSM),  however  future 
versions  will  accommodate  the  Common  Groimd  Station  (CGS)  as  well 
as  being  augmented  by  the  Joint  Tactical  Information  Distribution 
System  (JTIDS).  This  system  is  particularly  applicable  to  deep 
ATACMS  operations. 

•  Trailblazer/Teammate 

This  is  a  division  level  communications  intelligence  (COMENT) 
sensor  which  provides  radio  location  voice  reports  to  the  division 
Analysis  and  Control  Element  (ACE).  This  system  is  being  phased 
out  in  favor  of  the  Ground  Based  Common  Sensor  (GBCS)  described 
below. 

•  Ground  Based  Common  Sensor  (GBCS) 

This  sensor  provides  an  aU  weather,  day/night,  on-the-move,  automated 
and  integrated  COMINT,  ELINT,  EW  suite  for  HF,  VHF,  UHF,  SHF, 
EHF  firequency  bands.  The  GBCS  is  100  percent  interoperable  with 
the  Army  QUICKFIX  (AQF),  US  Marine  Corps  Mobile  Electronic 
Warfare  Support  System  (NffiWSS),  US  Navy  fast  attack  submarines, 
and  selected  Navy  combatants. 
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1999  Bde  -  Corps  Architecture 


Figure  1 .  1999  Brigade  to  Corps  Architecture  [Ref.  7] 
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•  Trackwolf/Enhanced  Trackwolf 

This  sensor  provides  COMINT  and  DF  against  threat  HF  emitters  to 
Echelons  Above  Corps  (EAC)  and  national  security  agencies.  This 
intelligence  supports  analysis  of  deep  situation  and  target  development. 
Target  information  is  passed  via  fiber  digital  data  networks.  The  sensor 
is  particularly  applicable  to  deep  ATACMS  operations. 

•  Guardrail  Common  Sensor  (GRCS) 

This  sensor  is  a  corps  level  airborne  SIGINT  system  capable  of 
acquiring  both  communications  and  non-communications  emitters.  It 
digitally  interfaces  with  the  Commander’s  Tactical  terminal  (CTT). 

•  Unmanned  Aerial  Vehicle  (UAV) 

This  sensor  provides  real-time  imagery  of  the  battlefield  via  the  CGS 
which  supports  corps  and  lower  echelons  with  targeting,  target  damage 
assessment,  and  battlefield  management  information.  It  interfaces  with 
the  CGS. 

•  Long  Range  Surveillance  Teams  (LRS)/Special  Operations  Forces 
Teams  (SOF) 

These  provide  a  corps  with  highly  reliable  HUMINT  collection  on 
enemy  activities  fi'om  concealed  observation  posts  employed  against 
second  echelon  and  follow-on  forces.  Information  is  generally 
consolidated  and  transmitted  at  predetermined  times  via  burst 
transmissions  on  a  secure  Improved  High  Frequency  Radio  (IHFR). 
LRS/SOF  data  would  be  particularly  applicable  to  deep  ATACMS 
operations. 

2.  Command  Centers 

The  IBTA  contains  all  current  and  planned  command  centers/command  posts/ 
headquarters  fi’om  Echelons  Above  Corps  (EAC)  down  through  the  individual  battery 
commands.  The  command  centers  are  very  much  aggregate  entities  in  as  much  as  the 
“modular”  equipment  contained  in  a  particular  command  center  may  be  found  at  many 
different  levels  of  the  command  structure  thus  allowing  several  elements  in  the 
architecture  to  perform  similar/redundant  functions.  In  some  cases  the  command  centers 
can  be  customized  to  meet  a  particular  need. 
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This  section  contains  those  C4I  elements  involved  in  receiving,  processing  and 
disseminating  targeting  information  and  fire  missions.  Some  communications  links,  while 
physically  part  of  the  command  centers,  will  be  treated  separately  in  the  next  section  on 
links.  Detailed  descriptions  of  selected  elements  are  detailed  below  within  the  limits  of 
classification.  Refer  to  Figure  (1).  [Ref  6  ]  [Ref  7] 


•  All  Source  Analysis  System  (ASAS)  This  is  a  multi-source 
processing  facility  located  at  the  corps  level.  It  provides  automated 
assistance  (fully  automated  in  Block  11)  in  analyzing,  processing,  and 
disseminating  information  and  commands  to  other  units.  The  system  is 
capable  of  displaying  and  monitoring  enemy  locations,  movements,  and 
identification  tags.  The  system  provides  for  multi-sensor  cueing, 
correlation,  and  fusion  of  data.  The  ASAS  is  part  of  the  Analysis  and 
Control  Element  (ACE)  located  the  Intelligence  Cell  at  corps 
headquarters. 

•  Ground  Station  Module  (GSM) 

This  is  the  processing  station  for  the  JSTARS  test  platform  and  has  had 
limited  deployment  during  developmental  testing.  This  station  is 
currently  located  at  corps  and  division  level  headquarters. 

•  Common  Ground  Station  (CGS) 

This  is  a  multi-source  processing  station  which  is  the  follow-on  to  the 
GSM.  It  will  be  capable  of  intelligence  analysis  of  JSTARS  NTI  and 
other  imagery  as  available.  The  station  will  include  a  CTT  for  multi¬ 
platform  access,  correlation,  and  fusion  in  near  real-time  (NRT). 

•  Commander’s  Tactical  Terminal  (CTT) 

The  unit  provides  target  quality  data  in  NRT  at  selected  critical  nodes. 
Provides  simultaneous  full  duplex  data  and  half  duplex  voice 
communications  between  selected  theater  sensors  and  deployed  CTT 
receivers.  The  CTT  can  transmit  in  individual,  group,  or  broadcast 
modes.  The  CTT  can  receive  the  Tactical  Information  Broadcast 
System  (TIBS),  Tactical  Related  Applications  (TRAP),  Tactical 
Reconnaissance  Intelligence  Exchange  System  (TRIX),  Unmanned 
Aerial  Vehicle  (UAV)  imagery,  and  ASAS  output. 

•  Advanced  Field  Artillery  Data  System  (AFATDS) 

An  enhancement  to  the  Tactical  Fire  Direction  System  (TACFIRE) 
which  provides  increased  automation  for  command  and  control  of 


14 


indirect  fires.  It  accommodates  all  existing  combat  net  radios  (CNRs), 
LANs,  and  fielded  data  communications  systems  and  equipment.  It 
provides  seamless  vertical  and  horizontal  interface  for  command  and 
control  of  fires. 


3.  Communications  Links 

The  IBTA  contains  all  current  and  planned  communications  links  used  to  connect 
the  various  architectures.  The  links  include  voice  and  data  as  well  as  RF,  land-line,  and 
LANs.  Detailed  descriptions  of  selected  elements  are  detailed  below  within  the  limits  of 
classification.  Refer  to  Figure  (1).  pR.ef  6  ]  [Ref  7] 


•  Joint  Tactical  Information  Distribution  System  (JTiUS) 

This  is  an  advanced  line  of  sight  (LOS)  radio  for  intra-theater  tactical 
information  distribution.  Transmission  occurs  at  prearranged  times, 
with  the  radio  receive  capable  during  other  periods.  One  terminal  in 
the  JTIDS  network  acts  as  a  time  reference.  The  system  is  very 
expensive  and  is  currently  only  planned  for  deployment  with  the  air 
defense  elements. 

•  Tactical  Information  Broadcast  System  (TIBS) 

This  system  provides  NRT  information  via  an  area  broadcast. 
Producers  on  TIBS  provide  sanitized,  fused  information  to  passive 
receivers.  This  information  is  presented  on  a  user-filtered,  graphics 
oriented  display.  The  CTT  is  capable  of  receiving  and  displaying  TIBS 
information. 


•  Surveillance  &  Control  Data  Link  (SCDL) 

A  unique  data  link  system  used  by  the  JSTARS  test  bed.  In  the 
production  version  this  is  to  be  augmented  by  JTIDS.  The  GSM,  and 
later  the  CGS  will  be  capable  of  receiving  SCDL  information. 


•  Combat  Net  Radio  (CNR) 

A  series  of  radios  with  varying  capabilities  which  when  combined  form 
a  loose  network  of  RF  communications.  The  Single  Channel  Ground- 
Air  Radio  System  (SINCGARS)  is  a  secure  fi'equency  hopping  LOS 
radio  capable  of  voice  and  data  transmissions.  The  Single  Channel 
SATCOM  (S/C  SATCOM)  is  a  longer  ranged  CNR  employed  by 
remote  users. 


15 


•  Common  Data  Link  (CDL) 

A  family  of  modular  communications  hardware  which  provides  secure 
data  link  for  SIGHSTT  and  IMINT  from/to  all  linked  elements.  The 
Army  uses  the  CDL  for  communications  between  the  GRCS  and  the 
the  Integrated  Processing  Facility  (IPF),  and  also  the  U2R  airborne 
ASARS  and  the  Enhanced  Tactical  Radar  Correlator  (ETRAC). 

4.  ATACMS  Firing  Element 

The  IBTA  contains  all  architectural  levels  between  corps  and  the  actual  firing 
battery.  Though  there  are  many  different  configurations  possible,  all  are  predicated  on  use 
of  the  AFATDS.  Since  this  system  is  already  fielded  and  has  received  wide  operational 
use,  the  architecture  below  the  AFATDS  interface  is  not  critical  to  understanding  and 
quantifying  the  attributes  and  behaviors  of  the  End-to-End  System.  Refer  to  Figure  (1). 
[Ref  6  ]  [Ref  7] 


F.  REAL-TIME  SYSTEMS 

When  viewed  as  a  total  system,  ATACMS,  as  described  in  the  previous  section, 
encompasses  behaviors  which  are  commonly  referred  to  as  real-time.  There  are  many 
different  definitions  of  real-time  systems.  The  following  is  a  good  general  description: 


"In  real-time  computing  the  correctness  of  the  system  depends  not  only  on  the 
logical  result  of  the  computation  but  also  on  the  time  at  which  the  results  are 
produced"  [Ref  8] 


If  these  timing  constraints  are  not  met,  then  a  failure  has  occurred.  Hence,  it  is 
essential  that  the  timing  constraints  of  the  system  are  strictly  observed,  which  in  turn 
requires  that  the  system  be  predictable  and  reliable.  Real-time  systems  may  be  further 
categorized  as  follows: 


A  system  where  "performance  is  degraded  but  not  destroyed  by  failure  to 
meet  a  response  time  constraint  is  referred  to  as  a  soft  real-time  system." 
Systems  where  "failure  to  meet  a  response  time  constraint  leads  to  system 
failure  is  a  hard  real-time  system"  FRef  9iy 
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The  definitions  of  "hard"  and  "soft"  are  not  universally  defined.  An  alternate 
definition  uses  "hard"  and  "soft"  to  describe  the  degree  of  time  constraint.  Also,  real¬ 
time  systems  are  not  "perfect"  or  "bug  fi-ee"  systems,  but  rather  have  well  defined  Mure 
rates  and  resultant  behaviors.  In  fact,  assessment  of  failures  with  respect  to  system 
definition  can  be  one  of  the  major  goals  of  prototyping. 

One  of  the  fimdamental  properties  of  real-time  systems  is  “that  some  or  all  of  its 
input  arrives  from  the  outside  world  asynchronously  with  respect  to  any  work  that  the 
program  is  already  doing"  [Ref  10],  The  program  must  be  able  to  block  its  current 
activity  and  then  execute  some  other  task,  and  when  done,  it  must  return  gracefiiUy  to  the 
previous  task .  Executing  several  tasks  in  what  is,  or  may  appear  to  be,  in  parallel  (parallel 
vs  multitasking),  is  a  key  characteristic  of  all  real-time  systems. 

It  is  important  to  emphasize  that  “real-time”  is  not  synonomous  with  “fast”. 

It  is  not  the  latency  of  the  response  that  is  at  issue  (it  could  be  of  any  magnitude),  but  "the 
fact  that  a  bounded  latency  suflScient  to  solve  the  problem  at  hand  is  guaranteed  by  the 
system.  In  particular,  it's  fi-equently  true  that  algorithms  that  guarantee  bounded  latency 
responses  are  less  efficient,"  and  thus  slower,  than  algorithms  that  do  not.  [Ref  1 1] 

During  the  ATACMS  analysis  we  identify  the  real-time  attributes  in  the  system  as 
well  define  component  and  system  failure  rates  and  modes. 

G.  COMPUTER  AIDED  PROTOTYPING  SYSTEM  (CAPS) 

In  the  classic  approach  to  developing  software,  known  as  the  waterfall  method,  a 
development  project  proceeds  in  discrete  phases  each  of  which  consists  of  analysis,  design, 
implementation,  and  testing.  An  essential  characteristic  of  this  approach  is  the  thorough 
definition  of  requirements  prior  to  the  commencement  of  implementation.  Any  problems 
encountered  in  the  testing  phase  are  discovered  only  after  significant  investment  in  time 
and  money.  [Ref  12] 

Rapid  prototyping  is  an  alternative  method  which  allows  the  quick  development  of 
an  executable  pilot  program  which  can  then  be  reviewed  by  the  user  for  accuracy. 
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Through  repeated  iterations  of  the  prototyping  cycle  (Figure  2)  the  user  validates  the 
requirements  of  the  proposed  system.  Upon  validation,  the  requirements  serve  as  a  basis 
for  production  software.  In  many  cases,  the  prototype  serves  as  a  starting  point  for 
production  code.  However,  it  is  important  to  remember  that  there  are  some  important 
distinctions  between  the  prototype  and  the  production  version  [Ref  13]: 

•  The  prototype  may  not  include  all  aspects  of  the  production  version. 

•  Prototype  resources  may  not  be  available  in  actual  operating  environment. 

•  The  prototype  may  have  limited  capacity. 

•  The  prototype  might  meet  timing  constraints  only  with  respect  to  linearly 
scaled  time. 


Figure  2.  The  Prototyping  Cycle  [Ref  13] 
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The  Computer  Aided  Prototyping  System  (CAPS)  is  an  integrated  software 
development  environment  which  is  at  the  heart  of  the  requirements  generation  process 
used  in  this  thesis.  The  Prototype  System  Description  Language  (PSDL)  in  CAPS  is 
designed  for  specifying  hard  real-time  systems.  The  PSDL  descriptions  produced  by 
CAPS  provide  a  formal  and  unambiguous  definition  of  the  modeled  system. 

CAPS  consists  of  four  major  components:  a  set  of  editors  for  design  entry,  a 
software  base  of  reusable  components,  and  an  execution  support  system  to  build  the 
executable  prototype  (Figure  3). 


Figure  3.  The  CAPS  System  [Ref  14] 
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By  using  the  CAPS  graphics  and  text  editors  the  user  can  create  a  prototype 
which  specifies  the  essential  requirements  of  the  system.  The  editor  enforces  consistency 
and  enables  rapid  construction  of  a  rigorous  and  accurate  model.  The  system  uses  the 
Transportable  Application  Environment  (TAE)  to  build  a  medium  fidelity  graphical  user 
interface  (GUI)  for  the  prototype.  Once  the  prototype  is  specified  the  user  translates  and 
schedules  the  prototype  and  then  automatically  creates  an  executable  driver  program 
which  incorporates  the  requirements  of  the  specification  file.  [Ref  15] 

CAPS  also  cont^s  a  software  database  system  which  consists  of  a  software 
database,  design  database,  a  software  reuse  facility,  automated  system  managftmffnt  and 
version  control.  The  software  database  tracks  PSDL  descriptions  and  ADA 
implementations  for  all  CAPS  reusable  software  components.  The  design  database  allows 
management  coordination  of  concurrent  team  design  efforts. 

One  of  the  most  important  issues  to  the  prototype  designer  using  CAPS  is  the 
treatment  of  real-time  constraints  identified  during  the  analysis.  It  is  important  to 
understand  CAPS’  behavior  in  this  respect.  Atomic  operators  in  a  CAPS  data  flow 
diagram  become  ADA  procedures  in  the  implementation.  Prioritizing  these  procedures 
into  time  critical  (high  priority)  and  non-time  critical  (low  priority)  is  fundamental  to 
specifying  a  real-time  prototype.  Determination  of  time  criticality  is  an  integral  part  of  the 
systems  analysis.  In  CAPS,  criticality  is  represented  by  the  assignment  of  a  Maximum 
Execution  Time  (MET).  The  MET  is  the  longest  period  between  the  time  the  operator 
begins  execution  and  time  it  completes  execution.  [Ref  16] 

Figure  4  shows  a  segment  of  the  augmented  data  flow  diagram  from  the  ATACMS 
prototype.  Note  that  the  operator  "asas  op"  has  a  MET  of 200  ms  assigned  to  it.  The 
presence  of  this  MET  means  that  the  CAPS  scheduler  will  treated  it  as  a  time  critical 
operation.  The  absence  of  a  MET,  such  as  in  operator  ”lan2_link_op"  below,  means  that 
the  CAPS  scheduler  will  treat  the  operator  as  a  non-time  critical  operation.  [Ref  17] 
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Figure  4.  Sample  DFD  Segment 


A  further  expansion  of  the  domain  of  tasks  begun  above  yield  the  Venn  diagram  in 
Figure  5.  A  discussion  of  time  critical  tasks  follows. 


•  Characteristics 

A  time  critical  task  is  one  that  has  a  timing  constraint  associated 
with  it.  In  CAPS,  an  operator  having  a  MET  is  considered  time 
critical  and  will  be  scheduled  in  the  static  schedule  loop  of  the 
prototype  driver  task  located  in  the  "<prototype_name>.a’'  file(the 
prototype  driver  file).  These  tasks  are  considered  HIGH  priority. 


*  CAPS  available  tasks 
Figure  5.  Domain  of  Ada  Tasks  [Ref  18] 
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Triggering 


There  are  only  two  ways  to  trigger  time  critical  tasks.  The  first 
is  using  a  time  event  and  these  tasks  are  called  periodic.  An 
example  is  an  airborne  phased  array  radar  like  on  the  JSTARS 
aircraft  that  scans  the  battlefield  at  regular  intervals.  The  second 
way  to  trigger  a  task  is  with  a  physical  event  and  these  tasks  are 
called  aperiodic.  An  example  is  using  a  mouse  to  press  a  Quit 
button  on  a  GUI.  A  subset  of  aperiodic  tasks  are  sporadic  tasks. 

The  distinction  is  subtle  and  will  be  discussed  later.  [Ref  18] 

•  Periodic  tasks 

Periodic  tasks  are  those  which  must  be  accomplished  at  regularly 
scheduled  intervals  (though  some  variance  may  be  introduced  through 
“jitter”).  The  requirements  analysis  will  normally  drive  the  size  of  the 
period.  In  a  hard  real-time  system,  failure  to  meet  this  timing  constraint 
will,  by  definition,  lead  to  system  failure  (see  Chapter  IIF).  The  CAPS 
scheduler  starts  with  periodic  tasks  when  it  builds  the  prototype's  static 
schedule. 


•  Aperiodic  tasks 

These  are  tasks  triggered  by  some  external  event  such  as  pressing 
a  mouse  button  or  detecting  a  hardware  interrupt.  [Ref  19]  The 
driver  program  periodically  looks  for  the  triggering  event  and  then 
executes  the  task  in  the  required  MET.  The  time  between  “looks” 
for  the  triggering  event  is  the  "trigger  period"  of  the  aperiodic  event. 
[Ref  18]  It  should  also  be  clear  that  where  a  normal  system  may  just 
ignore  an  event  if  it  happened  at  a  rate  faster  than  the  system  could 
execute  the  triggered  event,  a  real-time  system  should  be  built  to 
handle  a  defined  worst  case  situation.  To  handle  this  worst  case 
situation  of  repetitive  inputs  without  overflow,  CAPS  incorporates  a 
special  sub-type  aperiodic  task  called  a  sporadic  task.  Sporadic  tasks 
are  aperiodic  tasks  in  which  a  minimum  period  between  any  two 
aperiodic  events  is  required.  [Ref  19]  Li  CAPS,  they  are  triggered 
by  the  arrival  of  data  on  data  streams. 
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The  following  describes  the  non-time  critical  tasks: 


•  Characteristics 

A  non-time  critical  task  is  one  that  does  not  have  a  timing 
constraint  associated  with  it.  In  CAPS,  an  operator  without  a  MET 
is  considered  non-time  critical  and  will  be  scheduled  in  the  dynamic 
schedule  loop  of  the  prototype  driver  task  located  in  the 
"<protot5T)e_name>.a"  file.  These  tasks  are  considered  LOW 
priority  and  will  be  executed  on  a  time  permitting  basis.  They 
execute  during  periods  of  availability  in  the  static  schedule  and  are 
triggered  by  the  arrival  of  data  on  a  data  stream. 

Thus,  the  three  operator  options  available  to  the  CAPS  prototype  designer  are  the 
periodic,  sporadic,  and  non-time  critical  operators. 


H.  SPECIFIC  METHODOLOGY 

This  section  describes  the  specific  methodology  used  in  analy2dng  and  building  the 
prototype  of  the  ATACMS  End-to-End  System.  This  description  is  provided  so  the 
reader  may  understand  the  reasoning  behind  many  of  the  research  and  design  decisions 
which  are  described  later.  Mid-research  changes  made  in  the  approach  will  be  highlighted 
as  well  as  the  reasons  for  such  changes. 

Firstly,  we  contacted  the  ODTSE&E  to  determine  potential  customers  or 
stakeholders  and  to  determine  the  technical  points  of  contact  who  could  assist  in  supplying 
information  or  assisting  in  research.  We  concluded  that  the  only  recognized  stakeholder 
was  the  tasking  office. 

The  problem  of  managing  a  multi-service  project  such  as  this  one  has  not  been 
adequately  addressed.  No  existing  overall  authority  was  fiiund  for  developing  and 
disseminating  the  software  requirements  and  thus  the  component  authorities  were,  or 
wished  to  be,  limited  in  their  support.  Each  element  in  the  system  is  managed  by  a 
separate  agent.  As  best  as  we  could  ascertain  there  is  no  central  database  which  contains 
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the  necessary  data  to  construct  a  verifiable  model.  The  alternative,  detailed  interviews 
with  technical  persoimel  familiar  with  each  element,  was  logistically  and  programatically 
unfeasible. 

The  essence  of  the  problem  is  the  lack  of  attainable,  accurate,  and  verifiable  data  of 
the  quantity  and  quality  needed.  This  is  acerbated  since,  at  this  stage  of  the  design  qycle, 
the  large  portion  of  classified  information  precludes  ascertaining  the  general  requirements 
needed.  The  tasking  office  does  not  have  the  resident  technical  expertise  and  can  only 
assist  in  requests  for  information. 

The  above  impacted  the  research  and  model  development  as  follows; 

•  Required  application  of  resident  expertise  in  defining  the  requirements. 

•  Substitution  of  classified  data  with  replacement  data  or  placeholders  clearly 
identified  as  such. 

•  Construction  of  the  model  as  a  tool  to  study  and  gain  experience  in  the 
modeling  process  vice  concentration  on  useable  output. 

Using  the  IBTA,  ATACMS  performance  specifications,  and  interviews  with  some 
of  the  principals  involved,  work  on  a  single  instance  model  was  begun.  The  first  was  a 
basic  model  of  the  system  used  to  verify  communications  between  operators  in  the  system. 
Refinement  I  of  the  model  incorporated  some  of  the  functions  identified  during  the 
analysis  phase  as  being  essential  to  modeling  the  system  as  well  as  more  appropriate  data 
types.  Refinement  n  involves  expanding  the  model  to  include  other  sensors  and  alternate 
data  paths  and  is  not  fully  implemented. 

The  case  for  a  generic  model  is  strong  and  alluring.  However,  given  the  paucity  of 
available  data,  the  decision  was  made  to  pursue  a  single  instance  of  the  “golden  thread” 
and  then  progress  to  a  more  general  model  as  time  permitted.  The  selection  of  the 
JSTARS  to  ATACMS  thread  fi'om  the  IBTA  was  due  to  the  relatively  good  data  available 
for  it. 
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III.  REQUIREMENTS  MODEL 


A.  ANALYSIS 

1.  General  Analysis 

This  chapter  describes  the  systems  analysis  done  on  the  ATACMS  End-to-End 
System  as  it  pertains  to  the  model  within  this  thesis.  A  general  account  of  the  system 
requirements  is  given,  followed  by  a  description  of  the  individual  iterations  of  the  model. 
As  additional  requirements  are  added,  the  analysis  for  those  additional  requirements  are 
given  at  that  time. 

The  IBTA  vignettes  described  in  Chapter  DD  seek  to  identify  selected  data  paths 
for  the  various  sensor  to  shooter  connections  which  are  most  probable  and  can  be  used  to 
generally  describe  the  system.  For  reasons  given  previously,  the  basic  model  represents 
the  JSTARS  to  ATACMS  data  path  and  is  outlined  in  the  customer  description; 


Intelligence  data  is  collected  by  the  JSTARS,  which  is  linked  to  a  Common 
Ground  Station  (CGS).  Data  from  the  CGS  is  provided  to  the  All-Source 
Analysis  System  (ASAS)  or  Advanced  Field  Artillery  Tactical  Data  System 
(AFATDS),  depending  on  the  mode  of  operation.  In  the  ASAS,  the 
information  is  included  in  a  database  and  made  available  to  authorized 
users.  The  DOCC  utilizes  the  AFATDS  which  uses  the  targeting  related 
information  via  a  call  for  fire  message.  This  data  is  then  passed  along 
through  the  field  artillery  communications  nodes,  where  it  winds  up  as 
firing  data  for  an  ATACMS  equipped  unit. 


To  review,  the  JSTARS  is  an  airborne  radar  platform  which  provides  video  data  to 
selected  ground  stations.  The  Common  Ground  Station  (CGS)  is  a  communications 
station  which  is  being  acquired  and  which  will  be  able  to  receive  both  voice  and  data  from 
a  variety  of  sources.  The  ASAS  is  the  location  at  Corps  HQ  where  the  data  from  the 
various  sources  is  centrally  collected,  processed  and  disseminated.  The  AFATDS  is  the 
fire  control  system  used  by  the  artillery  units  to  communicate  and  disseminate  fire 
missions. 
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The  Deep  Operations  Coordination  Center  (DOCC)  is  a  new  element  being  added 
to  Corps  HQ  to  handle  operations  beyond  the  normal  corps  battlefield.  Available 
information  on  the  DOCC  is  minimal,  so  the  Corps  Tactical  Operations  Center  (CTOC) 
was  substituted  since  its  attributes  would  likely  be  very  similar. 

Using  the  above  vignette  and  drawing  on  our  experience  and  knowledge  of  like 
systems,  the  following  goals  hierarchy  was  developed.  Due  to  the  unavailability  or 
classification  of  many  of  the  criteria  used,  we  have  elected  to  use  a  substitute  set  of 
numerical  requirements.  These  are  represented  by  the  following  variable  series: 

•  Pi  series  denotes  required  probabilities 

•  Ti  series  denotes  required  time  constraints 

•  Ei  series  denotes  required  error  limits  (percent) 

To  the  IBTA  vignette  we  added  a  global  performance  statement: 

The  system  must  successfully  identify,  process,  target,  and  launch  within 
operational  time  constraints,  and  success  &  error  rates  (Ttoui ,  Ptotai ,  Etotai) 

From  the  vignette  and  global  performance  statement  we  developed  a 
goals  hierarchy  which  would  guide  the  design  and  implementation  of  the  model 
(Figure  6). 


G1  JSTARS  will  detect  enemy  targets,  and,  generate  and  transmit  JSTARS  video 
Gl.  1  JSTARS  will  correctly  detect  enemy  targets  with  at  least  Pi  accuracy 
G1.2  JSTARS  will  generate  and  process  video  in  at  least  Ti  time. 

G1.3  JSTARS  will  not  generate  more  than  El  percent  errors. 

G2  SCDL  will  transmit  the  JSTARS  video  to  the  GSM 

G2. 1  SCDL  will  transmit  the  JSTARS  video  with  at  least  P2  accuracy 
G2.2  SCDL  will  transmit  the  JSTARS  video  in  at  least  T2  time. 

G2.3  SCDL  will  not  generate  more  than  E2  percent  errors. 
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G3  Command  Station  will  receive,  process,  and  act  upon  the  JSTARS  video 
G3 . 1  GSM  will  receive,  process  and  forward  the  JSTARS  video 
G3 . 1 . 1  GSM  will  perform  with  at  least  P3  accuracy 

G3 . 1 .2  GSM  will  receive,  process,  and  forward  the  JSTARS  video 
in  at  least  T3  time. 

G3. 1.3  GSM  will  not  generate  more  than  E3  percent  errors. 

G3.2  AS  AS  will  process  GSM  video,  identify  and  prioritize  threats,  and 
forward  target  list 

G3 .2. 1  AS  AS  will  perform  with  at  least  P4  accuracy 

G3.2..2  AS  AS  will  receive,  process,  and  forward  the  JSTARS  video 

in  at  least  T4  time. 

G3.2..3  ASAS  will  not  generate  more  than  E4  percent  errors. 

G3 .3  CTOC  will  generate  firing  command(s)  fi-om  ASAS  target  list 
G3 .3 . 1  CTOC  will  perform  with  at  least  P5  accuracy 

G3.3.2  CTOC  will  receive,  process,  and  forward  the  JSTARS  video 
in  at  least  T5  time. 

G3.3.3  CTOC  will  not  generate  more  than  E5  percent  errors. 

G4  CNR  will  transmit  fire  missions  to  the  shooter 

G4. 1  CNR  will  transmit  the  fire  missions  with  at  least  Pe  accuracy 
G4.2  CNR  will  transmit  the  fire  missions  in  at  least  Te  time. 

G4.3  CNR  will  not  generate  more  than  Ee  percent  errors. 

G5  The  shooter  will  fire  in  response  to  received  fire  missions 

G5 . 1  CNR  will  transmit  the  fire  missions  with  at  least  Pe  accuracy 
G5.2  CNR  will  transmit  the  fife  missions  in  at  least  Te  time. 

G5.3  CNR  will  not  generate  more  than  Eg  percent  errors. 


Figure  6.  Goals  Hierarchy 
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Normally,  when  developing  the  specification  for  a  system,  specific  consideration  is 
given  to  the  following  five  constraints  on  the  system: 

•  Resource  -  schedule,  budget,  manpower 

•  Performance  -  execution  time,  accuracy,  memory,  system  down 
time 

•  Environment  -  hardware,  operating  system,  external  systems 

•  Form  -  Programming  language,  coding  &  documentation  standards 

•  Methods  -  development  tools,  testing  procedures,  performance 
benchmarks  [Ref  5] 

However,  when  using  rapid  prototyping  to  quickly  identify  system  requirements 
and  projected  performance  parameters,  many  of  the  above  considerations  fall  out  of  scope. 
In  general,  the  focus  is  on  performance  and  environment,  though  considerations  fi'om  the 
other  constraints  can  be,  and  often  are  included.  Much  of  the  work  is  also  done  at  the 
functional  specification  level  since  one  of  the  main  purposes  of  the  model  is  the  definition 
of  the  external  interfaces.  The  use  of  representative  data  types  accomplishes  much  in 
representing  these  interfeces,  with  PSDL  attributes  used  to  define  the  remainder. 

2.  Components 

In  this  section  we  will  analyze  the  particular  requirements  of  the  individual 
components.  A  brief  description  of  the  attributes  of  each  of  the  operators  identified  in  the 
JSTARS  to  ATACMS  data  path  are  included.  These  descriptions  are  a  compilation  of 
both  known  and  presumed  attributes.  Many  items  listed  would  be  necessary  in  later 
refinements  to  make  the  system  model  more  robust.  Also,  for  most  of  these  operators  it 
is  vital  to  keep  in  mind  the  discussion  on  quantity  of  operators  given  in  Chapter  DB.  [Ref 
6]  [Ref  7] 

•  Target  Emitter 

The  model  must  include  an  operator  which  simulates  the  “real”  world 
in  the  sense  that  targets  are  placed  and  removed,  and  they  “emit”,  either 
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actively  or  passively,  detectable  amounts  of  EM  radiation.  This  is  not 
part  of  the  ATACMS  system.  Target  Emitter  would  operate  at  a 
period  sufficient  to  test  the  reaction  time  of  the  system.  It  would 
include  in  its  target  generation  all  the  information  which  could  be 
discerned  from  the  target  (i.e.,  derived  attributes)  itself  by  any  sensor 
observing  it  (currently  limited  to  JSTARS).  Since  the  real  world 
emissions  occur  instantly  this  operator  would  need  to  function  in  a 
short  period  so  as  not  to  disturb  the  basic  behavior  of  the  system 

•  JSTARS 

Since  JSTARS  generates  a  continuous  series  of  video  frames  to  be 
transmitted  to  receiving  ground  stations,  its  operator  in  the  system  is 
periodic.  However,  given  the  restrictions  of  our  single  processor 
system,  the  period  needs  to  be  as  long  as  possible  (and  still  meet  the 
system  update  needs)  rather  than  a  continuous  cycle.  The  JSTARS 
operator  has  a  requirement  for  functions  to  generate  a  video  picture, 
inject  simulated  errors,  and  have  timing  delays  to  represent  operator, 
processing,  and  internal  transmission  time  (as  opposed  to  latency). 

•  SCDLLink 

The  system  contains  an  automated  link  between  the  JSTARS  and 
Command  Station  modules.  Since  the  link  operates  upon  the  receipt 
of  a  video  frame  from  JSTARS  and  must  finish  within  a  prescribed 
time,  it  is  a  sporadic  operator.  The  essential  attributes  of  this  operator 
are  protocol,  baud  rate,  formats,  average  message  size,  and  bandwidth 
(and  a  derived  latency  attribute).  The  link  also  has  a  requirement  for  a 
function  to  introduce  noise/error  into  the  transmission.  Internally,  there 
is  no  modification  of  the  video  picture  (exception:  noise/error). 


•  Ground  Station  Module 

The  system  includes  an  operator  to  receive  and  process  the  incoming 
JSTARS  video  and  forward  the  data  to  the  ASAS  on  the  ASAS  LAN. 
Since  the  link  operates  upon  the  receipt  of  a  video  frame  from  SCDL 
Link  and  must  fimsh  within  a  prescribed  time,  it  is  a  sporadic  operator. 
It  is  unknown  at  present  what  the  GSM  processing  capability  is.  In  our 
model  the  GSM  will  be  required  to  “build”  its  own  video  picture  for 
transmission  with  some  defined  susceptibility  to  error.  The  GSM  has 
requirements  for  timing  delays  to  represent  operator,  processing,  and 
internal  transmission  time  (as  opposed  to  latency). 

•  ASAS  LAN 

Within  the  decomposed  Command  Station  operator,  all  internal 
communications  are  accomplished  via  the  ASAS  LAN  (in  our  model 


29 


the  LAN  appears  between  the  GSM  and  the  ASAS,  and  also  between 
the  ASAS  and  the  CTOC).  Since  the  link  operates  upon  the 
transmission  of  data  from  a  sender,  and  must  finish  within  a  prescribed 
time,  it  is  a  sporadic  operator.  The  essential  attributes  of  this  operator 
are  protocol,  baud  rate,  formats,  average  message  size,  and  bandwidth 
(and  a  derived  latency  attribute).  The  link  also  has  a  requirement  for  a 
function  to  introduce  simulated  noise/error  into  the  transmission. 
Internally,  there  is  no  modification  of  the  data  (EXC.:  noise/error). 

The  LAN  uses  the  U.S.  Message  Text  Format  (USMTF). 


•  ASAS 

The  system  includes  an  operator  to  represent  the  ASAS’  capability  to 
accept  incoming  target  and  intelligence  data  and  perform  evaluation 
and  targeting  functions.  The  ASAS  determines  a  priority  target  list 
based  on  a  predetermined  algorithm  and  forwards  the  target  list,  one 
target  at  a  time,  to  the  CTOC  on  the  ASAS  LAN.  Since  the  ASAS 
continues  to  process  the  target  list  independent  of  new  data  arriving,  it 
is  periodic.  However,  it  also  contains  a  “triggered  if’  condition  based 
on  the  state  stream.  The  target  list  generation  would  have  a  defined 
susceptibility  to  error.  The  ASAS  has  requirements  for  timing  delays  to 
represent  operator,  processing,  and  internal  transmission  time  (as 
opposed  to  latency). 

•  CTOC 

The  system  includes  an  operator  to  receive  and  process  incoming 
prioritized  target  lists  from  the  ASAS  and  generate  and  forward  fire 
missions  to  individual  batteries  on  the  CNR  net.  Since  the  link  operates 
upon  the  receipt  of  a  new  target  list  from  the  ASAS  and  must  firish 
within  a  prescribed  time,  it  is  a  sporadic  operator.  It  is  unknown  at 
present  what  the  CTOC  procedure  is.  The  CTOC  has  requirements  for 
timing  delays  to  represent  operator,  processing,  and  internal 
transmission  time  (as  opposed  to  latency). 

•  CNR  Link 

The  system  contains  an  automated  link  between  the  Command  Station 
and  Shooter  modules.  Since  the  link  operates  upon  the  receipt  of  a 
firing  command  from  the  Command  Station,  and  must  finish  within  a 
prescribed  time,  it  is  a  sporadic  operator.  The  essential  attributes  of 
this  operator  are  protocol,  baud  rate,  formats,  average  message  size, 
and  bandwidth  (and  a  derived  latency  attribute).  The  link  also  has  a 
requirement  for  a  function  to  introduce  simulated  noise/error  into  the 
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transmission.  Internally,  there  is  no  modification  of  the  firing  command 
(exception;  noise/error). 


•  Shooter 

The  system  includes  an  operator  to  receive  and  process  the  incoming 
fire  missions  firom  the  CTOC  and  generate  a  “weapons  release”  against 
the  targeted  location.  The  Shooter  needs  to  reply  to  the  CTOC  after  a 
successful  launch.  Since  the  shooter  operates  upon  the  receipt  of  a  the 
firing  command  from  the  CTOC  and  must  finish  within  a  prescribed 
time,  it  is  a  sporadic  operator.  As  previously  mentioned,  the  behavior 
of  the  artillery  architecture  below  Corps  is  well  defined  and  does  not 
need  to  be  modeled  in  detail.  The  Shooter  has  requirements  for  timing 
delays  to  represent  operator,  processing,  and  internal  transmission  time 
(as  opposed  to  latency). 


The  above  is  a  general  list  of  requirements  which  would  need  to  be  verified  by  the 
customer  during  the  review  process.  They  are  sufiBciently  general  in  nature  as  to  cover  the 
top  level  behavior  of  the  components  and  to  act  as  flags  to  the  customer  as  to  specific  data 
items  which  need  to  be  addressed.  The  operation  of  the  above  described  system  will  be  in 
accordance  with  the  goals  outlined  in  the  previous  section. 


B.  BASIC  MODEL 

In  this  section  we  discuss  the  design  and  construction  of  the  basic  model  (see 
graph  and  PSDL  list;  Appendbc  A).  As  mentioned  previously,  our  purpose  was  to 
implement  a  basic  representation  of  the  system  and  to  verify  communications  between  all 
the  components.  Several  output  statements  were  inserted  to  allow  monitoring  of  the  data 
propagation.  Internal  functioning  of  the  system  or  the  suitability  of  data  types  was  ignored 
at  this  stage  (all  passed  data  types  are  the  same).  For  this  reason  the  Ada  source  code  is 
omitted. 

Though  the  descriptions  below  are  PSDL  oriented,  the  concepts  embodied  in  the 
individual  attributes  should  be  straightforward.  If  further  detail  is  desired  we  recommend 
the  CAPS  group  at  NFS  be  contacted  notes  be  consulted. 
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•  tai^et_emittcr_op 

This  is  a  periodic  operator  with  a  1  second  (^cle  time,  which  was 
selected  to  contribute  to  a  low  system  load  factor  (we  wished  to  keep  it 
below  50%).  The  target  emitter  produces  an  output  stream 
emission_str,  which  simulates  the  content  of  an  actual  passive  or  active 
emission  from  the  target(s).  For  test  purposes,  in  the  basic  model  the 
target  emitter  generates  a  new  “target”  stream  with  each  cycle.  This 
new  data  steram  can  then  be  monitored  as  it  propagates  downstream. 
Desiring  to  limit  the  impact  of  this  operator  on  the  total  system,  a  200 
ms  maximum  execution  time  is  given. 


•  jstars_op 

This  is  a  periodic  operator  with  a  1  second  cycle  time,  which  was 
selected  so  as  to  contribute  to  a  low  system  load  factor  (we  wished  to 
keep  it  below  50%).  JSTARS  accepts  the  emitter_str  and  produces  an 
error  free  output  stream,  target  arrayl  str,  which  simulates  the  content 
of  the  JSTARS  video.  JSTARS  continuously  generates  its  video 
picture  independent  of  whether  the  target  “picture”  has  changed.  The 
hard  requirement  with  respect  to  timing  is  that  JSTARS  always  operate 
at  least  as  often  as  target  emitter  to  preclude  the  loss  of  data  (in 
general,  JSTARS  does  not  deal  with  a  target  set  which  rapidly  changes, 
see  Chapter  HE).  Desiring  to  limit  the  impact  of  this  operator  on  the 
total  system,  a  200  ms  maximum  execution  time  is  given. 

•  scdl_link_op 

This  is  a  non-time  critical  operator  which  is  triggered  by  the  receipt  of 
all  target  arrayl  str  from  JSTARS.  In  the  basic  model  the  SCDL 
Link  simply  passes  on  the  received  data  and  produces  an  error  free 
output  stream,  target_array2_str. 

•  command_station_op 

This  is  a  composite  operator  which  represents  the  system  components 
physically  located  at  the  Corps  HQ.  Its  elements  are  the  ground  station 
module  (gmd_stat_mod_op),  the  ASAS  LAN  connections 
(lanl  link  op,  lan2_link_op),  ASAS  (asas  op),  and  the  CTOC 
(ctocop). 

•  grnd_stat_mod_op 

This  is  a  non-time  critical  operator  which  is  triggered  by  the  receipt  of 
all  target_array2_str  from  scdl  link  op.  In  the  basic  model  the  ground 
station  module  simply  passes  on  the  received  data  and  produces  an 
error  free  output  stream,  target_array3_str  which  is  sent  to 
lanl_link_op. 
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•  lanl_lmk_op 

This  is  a  non-time  critical  operator  which  is  triggered  by  the  receipt  of 
all  target  arrayS  str  from  gmd  stat  mod  op.  In  the  basic  model  the 
AS  AS  LAN  simply  passes  on  the  received  data  and  produces  an  error 
free  output  stream,  target_array4_str. 

•  asas_op 

This  is  a  periodic  operator  with  a  cycle  of  4  seconds.  In  the  basic 
model  the  ASAS  simply  passes  on  the  received  data  and  produces  an 
error  free  output  stream,  fire  cmdl  str. 

•  lan2_link_op 

This  is  a  non-time  critical  operator  which  is  triggered  by  the  receipt  of 
all  fire_cmdl_str  from  asas_op.  In  the  basic  model  the  ASAS  LAN 
simply  passes  on  the  received  data  and  produces  an  error  free  output 
stream,  fire_cmd2_str. 

•  ctoc_op 

This  is  a  non-time  critical  operator  which  is  triggered  by  the  receipt  of 
all  fire_cmd2_str  from  lan2_link_op.  In  the  basic  model  the  CTOC 
simply  passes  on  the  received  data  and  produces  an  error  free  output 
stream,  firecmdSstr. 

•  cnr_link_op 

This  is  a  non-time  critical  operator  which  is  triggered  by  the  receipt  of 
all  fire_cmd3_str  from  command_station_op.  In  the  basic  model  the 
CNR  Link  simply  passes  on  the  received  data  and  produces  an  error 
free  output  stream,  fire_cmd4_str. 

•  shooter_op 

This  is  a  non-time  critical  operator  which  is  triggered  by  the  receipt  of 
all  fire_cmd4_str  from  cnr_link_op.  In  the  basic  model  the  shooter 
simply  outputs  a  “fired”  message. 

When  executed,  the  basic  model  runs  both  the  target  emitter  and  the 
JSTARS  based  on  the  static  schedule  created  by  CAPS.  After  running  target 
emitter  and  JSTARS,  the  prototype  runs  each  triggered  operator  in  sequence  until 
the  data  path  is  complete.  As  currently  timed  the  basic  model  completely  handles 
each  new  “target”  prior  to  generating  a  new  one. 


33 


C.  REFINEMENT  I 

In  this  section  we  discuss  the  design  and  construction  of  the  first 
refiutiement  of  the  prototype  model  (see  graph,  PSDL  list,  and  Ada  source  code; 
Appendix  B).  The  goal  of  this  refined  model  is  to  incorporate  the  attributes  and 
functions  which  will  meet  the  requirements  list  delineated  earlier.  Additionally,  a 
basic  GUI  has  been  added  that  aOows  the  user  to  control  the  prototype  operation. 
Since  many  of  the  attributes  are  either  unknown  or  classified,  placeholder  functions 
have  been  used  pending  identification  by  the  customer  and  operation  of  the  model 
in  a  secure  environment. 

Abulletized  description  of  the  modifications  made  to  the  basic  model  is 
given  for  each  operator,  as  well  as  identification  of  areas  where  customer  feedback 
is  required.  This  section  should  be  used  as  a  checklist  for  user  feedback. 


•  target_emitter_op 

-  Cycle  time  increased  to  16  seconds. 

-  Target  generator  added  (controlled  by  GUI).  User  must  supply 
actual  target  rates  and  behaviors  for  testing  scenario. 

-  Array  simulates  geographical  area  under  observation  by  sensor 

•  jstars_op 

-  Cycle  time  increased  to  8  seconds. 

-  User  must  supply  actual  video  data  type  for  either  use  or 
simulation. 

-  Given  single  processor  hmitation,  user  must  define  a  minimum 
update  rate  suitable  for  target  volatility 

-  Placeholder  functions  added  for  simulating  operator  time, 
processing  time,  internal  transmission  (prep)  times,  error  rate. 
User  must  supply  actual  values. 

-  Array  simulates  video  format 

•  scdI_Iink_op 

-  Error  injection  function  added.  User  must  define  actual  error 
rates  and  types. 

-  Latency  added  to  data  stream  (via  delay  statements).  User  must 
supply  actual  values. 
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-  Placeholder  functions  added  for  processing  time,  internal 
transmission  (prep)  times.  User  must  supply  actual  values, 
(assumed  an  automated  system,  hence  no  operator  time) 

•  grnd_stat_mod_op 

-  Grid  fixing  functionality  added.  User  must  supply  actual 
functionality. 

-  Target  collation  function  added.  User  must  supply  actual 
functionality; 

-  Placeholder  functions  added  for  simulating  operator  time, 
processing  time,  internal  transmission  (prep)  times,  and  error  rates 
and  types.  User  must  supply  actual  values. 

•  lanl_lmk_op 

-  Error  injection  function  added.  User  must  define  actual  error 
rates  and  types. 

-  Latency  added  to  data  stream  (via  delay  statements).  User  must 
supply  actual  values. 

-  Placeholder  fimctions  added  for  processing  time,  internal 
transmission  (prep)  times.  User  must  supply  actual  values. 

•  asasop 

-  Changed  to  a  periodic  operator  with  a  4  second  cycle. 

-  Prioritization  and  targeting  functionality  added.  User  must 
provide  actual  algorithms  and  capabilities. 

-  Placeholder  functions  added  for  simulating  operator  time, 
processing  time,  internal  transmission  (prep)  times,  and  error  rates 
and  types.  User  must  supply  actual  values. 


•  lan2_link_op 

-  Error  injection  function  added.  User  must  define  actual  error 
rates  and  types. 

-  Latency  added  to  data  stream  (via  delay  statements).  User  must 
supply  actual  values. 

-  Placeholder  functions  added  for  processing  time,  internal 
transmission  (prep)  times.  User  must  supply  actual  values. 

•  ctoc_op 

-  Currently  passes  through  fire  mission.  User  must  provide  actual 
algorithms  and  capabilities. 

-  Placeholder  functions  added  for  simulating  operator  time, 
processing  time,  internal  transmission  (prep)  times,  and  error  rates 
and  types.  User  must  supply  actual  values. 
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•  cnr_link_op 

-  Error  injection  function  added.  User  must  define  actual  error 
rates  and  types. 

-  Latency  added  to  data  stream  (via  delay  statements).  User  must 
supply  actual  values. 

-  Placeholder  functions  added  for  processing  time,  internal 
transmission  (prep)  times.  User  must  supply  actual  values. 

(assumed  an  automated  system,  hence  no  operator  time) 

•  shooter_op 

-  Fire  upon  valid  command  functionality  added.  User  must  provide 
additional  algorithms  and  capabilities. 

-  Placeholder  functions  added  for  simulating  operator  time, 
processing  time,  internal  transmission  (prep)  times,  error  rate. 

User  must  supply  actual  values. 

Additional  requirements  identified  in  this  refinement  of  the  model  are  the 
overall  system  timing  and  accuracy  constraints  as  well  as  the  defined  failure  modes. 
Specifics  are  not  currently  incorporated  since  many  of  these  items  are  either 
unknown  or  classified.  Specific  data  must  be  supplied  by  the  user. 

One  area  which  presented  particular  difficulty  was  the  insertion  of  data 
stream  latency.  Under  particular  circumstances  of  time  critical  operators,  long 
latencies,  and  short  execution  times/periods,  it  becomes  impossible  to  generate  a 
vahd  schedule  for  the  prototype  driver  program.  In  lieu  of  using  the  latency 
feature  in  CAPS,  we  chose  to  insert  delay  statements  into  the  appropriate 
operators.  Currently  this  generates,  as  expected,  a  series  of  timing  errors.  These 
errors  can  be  isolated  in  code  fi'om  errors  generated  by  other  causes. 

The  basic  GUI  consists  of  a  pair  of  TAB  generated  control  panels.  The 
first.  Target  Panel  controls  target_eniitter_op  and  enables  the  human  operator  to 
run,  pause  and  quit  the  prototype  as  well  as  initiate  target  generation.  The  Shooter 
Fire  Mission  Panel  displays  vital  target  data  as  it  exists  after  being  processed  and 
transmitted  through  the  system.  It  also  tests  and  displays  the  communications 
status  as  determined  by  the  receipt  of  a  flag  signifying  a  failure  of  the  system 
communications  path. 
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Since  the  purpose  of  the  prototype  is  to  ascertain  and  verify  requirements 
and  less  so  as  a  simulation,  the  use  of  script  files  and  text  output  windows  were 
heavily  used  to  observe  and  document  the  behavior  of  the  model. 

D.  REFINEMENT  H 

The  model  presented  in  this  section  represents  our  vision  for  a  more  robust 
whole  system  model  which  incorporates  several  elements  and  data  paths  not 
included  in  Refinement  I.  This  model  is  not  an  executable  prototype  and  is 
intended  only  to  show,  in  coarse  terms,  how  a  model  incorporating  multiple 
sensors,  varied  links,  and  a  more  detailed  command  center  might  appear. 

Several  of  the  operators  used  in  Refinement  n  are  not  detailed  in  either  the 
system  description  or  system  analysis.  Lack  of  data  prevented  us  fi'om  using  some 
of  these  operators  earlier.  For  instance,  the  Tactical  Information  Broadcast 
System  (TIBS)  description  seems  to  indicate  some  interesting  behaviors  and 
attributes  which  would  not  be  modeled  in  any  of  the  other  links.  TIBS  requires  a 
sensor  input,  hence  the  appearance  of  Rivet  Joint,  though  no  details  on  it  are 
available  at  this  time.  Also,  we  included  the  Area  Common  User  System  (ACUS) 
which  was  a  necessary  adjunct  to  Trackwolf,  both  of  which  we  wished  included. 

A  description  of  the  modifications  and  additions  to  Refinement  I  resulting 
in  Refinement  n  are  detailed  below,  including  reasons  for  selection; 

•  g*‘cs_op 

-  This  operator  represents  the  Guardrail  Common  Sensor  (GRCS). 
Since  it  is  a  SIGINT  sensor  its  operations,  data  t3q)e  and  content, 
and  thus  behavior,  would  be  different  fi'om  JSTARS. 

-  While  there  is  no  dedicated  fink  for  GRCS,  some  of  the  link 
attributes  would  pertain  to  the  GRCS  transmission  and  thus  would 
need  to  be  represented  in  either  grcs_op  or  cgs  op. 
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•  rivetJoiiit_op 

-  This  operator  represents  the  Rivet  Joint  airborne  sensor.  No 
information  concerning  Rivet  Joint  was  available  to  us. 

-  Rivet  Joint  utilizes  TIBS  as  a  link  to  the  Commander’s  Tactical 
Terminal  (CTT). 


•  Trackwolf 

-  This  operator  represents  the  Trackwolf  sensor.  This  sensor’s 
utility  in  targeting  deep  targets  makes  its  inclusion  in  the  model 
desirable 

-  Trackwolf  utilizes  the  ACUS . 


•  uav_op 

-  This  operator  represents  ground  launched  unmanned  aerial 
reconnaissance  vehicles.  Since  it  provides  raw  video,  its  data  t5^e 
and  content,  and  thus  behavior,  would  be  different  from  JSTARS. 

-  While  there  is  no  dedicated  link  for  the  UAV,  some  of  the  link 
attributes  would  pertain  to  the  UAV  video  and  thus  would  need  to 
be  represented  in  either  uav  op  or  cgs_op. 


•  tibs_op 

-  This  operator  represents  the  TIBS.  The  system  appears  to  have 
some  data  processing  and  fusion  capabilities,  thus  presenting  unique 
modeling  issues. 


•  acusop 

-  This  operator  represents  the  ACUS  communication  net.  It 
appears  to  be  a  relatively  open  WAN  and  thus  also  presents  some 
unique  modeling  issues. 

Once  a  thorough  customer  review  of  Refinement  I  occurs  and  the 
multitude  of  open  issues  in  that  model  are  addressed.  Refinement  n  can  be 
used  as  a  launching  point  for  expansion  of  the  ATACMS  model. 
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IV.  CONCLUSIONS  AND  RECOMMENDATIONS 


A.  EVALUATION  OF  MODEL 

Evaluation  of  the  prototype  model  constructed  is  limited  to  Refinement  I.  The 
Basic  Model  was  used  only  as  a  starting  point  to  verify  some  initial  relationships  and  data 
flows.  Refinement  n  is  simply  an  expansion  of  its  predecessor  and  represents  preparatory 
work  in  advance  of  a  review  with  the  customer.  Refinement  n  does  not  address  any  issues 
concerning  accuracy  and  suitability  of  either  the  analysis  or  the  prototype  not  raised  by 
Refinement  I.  Refinement  11  incorporates  a  single  additional  operating  data  flow  which 
was  used  to  attempt  to  quantify  CAPS  productivity  (see  next  section). 

We  believe  that  Refinement  I  accurately  represents  the  primary  relationships 
between  the  operators  identified  by  the  analysis.  Secondary  and  tertiary  data  flow  paths, 
such  as  those  used  for  back-up  or  streamlined  operations  have  neither  been  identified  nor 
incorporated.  The  prototype  is  ready  for  its  first  evaluation  by  the  tasking  office  or  then- 
representatives.  The  issues  which  would  enable  progression  to  the  next  level  of  accuracy 
and  suitability  have  been  identified.  The  detailed  discussions  of  the  requirements  models 
in  the  preceding  chapter  may  be  used  as  a  preliminary  checklist  to  begin  the  evaluation 
process. 

The  prototype  as  currently  configured  will  not  provide  an  accurate  appraisal  of  the 
operational  behavior  of  the  system.  Placement  of  the  actual  data  values  into  the  both  the 
placeholder  function  and  the  substitution  data  we  provided  is  necessary  prior  to  evaluation 
of  the  prototype  operationally. 

Visibility  into  the  model  should  be  sufficient  at  this  stage  to  do  a  preliminary 
evaluation  once  the  actual  data  is  substituted.  Further  use  of  script  files  and  screen 
outputs  may  be  useful  in  the  next  phase  to  be  able  to  rigorously  verify  the  prototype.  We 
found  that  limiting  the  GUI  to  only  essential  items  and  avoiding  the  more  robust  graphics 
significantly  reduced  the  impact  on  the  model.  Ultimately  this  approach  ensures  a  more 
accurate  evaluation  as  the  protot5q)e  grows.  While  this  may  not  be  a  critical  issue  for 
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“soft”  real-time  systems,  “hard”  systems  demand  that  non-system  operators  (e.g.  GUI, 
model  control,  etc.)  minimize  their  influence  on  the  actual  system  operators. 

Once  the  model  is  updated  and  verified  for  the  JSTARS  to  ATACMS  thread,  it 
will  be  a  relatively  simple  matter  to  expand  the  model  to  encompass  other  sensor  and 
weapons,  as  well  as  alternate  data  flows  by  employing  widespread  reuse  of  the  operators 
and  their  common  contents. 

B.  EVALUATION  OF  CAPS 

An  evaluation  of  CAPS  as  a  requirements  specification  tool  must  necessarily  be  a 
subjective  process  for  the  authors.  It  is  difBcult  to  differentiate  limitations  and 
shortcomings  imposed  by  the  CAPS  environment  fi-om  those  attributable  to  either  the 
paucity  of  data,  lack  of  actual  systems  analysis  experience,  or  the  learning  curve  necessary 
to  become  proficient  in  the  use  of  the  system. 

From  the  viewpoint  of  rigor,  CAPS  is  able,  either  directly  or  through  derived 
attributes,  to  represent  every  requirement  drawn  from  the  resource  materials  with  the 
notable  exception  of  the  data  stream  latency  noted  in  Refinement  I  of  the  model.  The 
automatic  scheduling,  graphical  translation,  and  code  generation  were  essentially  error  free 
(a  pair  of  one-line  changes  required  for  each  protot3q)e  driver  generated  currently  require 
manual  correction).  Management  tools  allow  the  smooth  transition  between  versions  and 
provide  tight  control  of  the  development  process.  In  fact,  we  found  that  parallel  efforts  on 
small  portions  of  the  model  were  possible.  We  recommend  the  use  and  evaluation  of  the 
database  management  system  on  a  larger,  more  detailed  effort.  Of  a  special  interest  is  the 
ability  to  exclude  portions  of  the  code  from  various  members  of  a  development  team,  thus 
supporting  tight  configuration  management. 

While  the  CAPS  system  appears  generally  complete  in  its  functional  capabilities,  it 
does  present  some  areas  for  improvement.  We  feel  the  largest  of  these  is  the  lack  of 
documentation  of  system  features  and  procedures.  While  fully  aware  that  CAPS  has 
heretofore  been  largely  in  the  development  stage,  breakout  into  widespread  use  is  going 
to  be  very  dependent  on  the  availability  of  useful  and  complete  documentation  of  the 
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system.  Without  the  availability  of  publications  or  on-line  HELP,  it  would  not  take  a  very 
large  installed  base  to  quickly  swamp  the  CAPS  group’s  ability  to  respond  to  user 
inquiries.  Also,  managers  will  demand  a  more  rapid  ramp  up  than  is  currently  possible 
without  such  information. 

We  have  attempted  to  begin  the  process  of  collecting  and  developing  a  thorough 
database  for  developing  the  documentation  required.  Detailed  notes  were  kept 
throughout  the  process,  documenting  esoteric,  erroneous,  or  difficult  to  use  procedures, 
commands  and  processes.  A  collection  of  mini  tutorials  have  been  include  in  Appendix 
D. 

Though  we  were  not  limited  in  our  effort,  due  to  the  nature  and  size  of  our 
problem  domain,  operating  CAPS  in  a  single  processor  environment  poses  challenges 
which  would  be  alleviated  by  completing  work  on  a  multi-platform  version. 

Platform  portability,  while  not  a  problem  for  us,  is  necessary  for  the  widespread 
use  of  the  system. 

For  the  immediate  future  the  esoteric  nature  of  some  the  CAPS  procedures, 
commands,  and  processes  does  not  disqualify  it  from  use  on  an  actual  project.  This  is  so 
for  two  major  reasons.  Firstly,  the  distribution  and  use  of  CAPS  on  a  wider  basis  would 
present  us  with  the  ability  to  identify  and  quantify  these  issues,  as  well  as  user  preferences, 
in  much  the  way  a  beta  release  of  commercial  software  does.  By  this  process  of  user 
feedback,  we  naturally  migrate  towards  a  common  interface  model.  Secondly,  we  foresee 
the  benefits  resulting  from  the  continuing  use  of  CAPS  by  a  modeling  concern  as 
mitigating  and  recouping  the  start-up  effort  the  system  requires. 

We  also  recommend  the  complete  integration  of  the  TAB  multi-file  approach.  Until 
recently,  prototypes  that  used  a  TAB  generated  interface  utilized  what  is  referred  to  as  the 
"single  file"  approach.  In  the  single  file  approach,  TAB  generates  one  central  file  that 
contains  the  event  loop  and  procedures  that  link  to  all  TAB  windows.  Since  CAPS 
generates  its  own  main  program  event  loop,  the  TAB  event  loop  must  be  subjugated  to  it. 
The  conversion  of  the  TAB  driver  is  a  manual  3 1  step  process  which  needs  to  be  redone 
each  time  ^  item  on  the  interface  is  changed.  Minor  changes  require  large 
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recompilations.  The  single  file  paradigm  is  very  monolithic  and  hard  to  manage.,  and  it 
does  not  lend  itself  to  decomposition.  In  the  TAE  multi-file  approach,  TAE  creates  a 
panel  package  for  each  TAE  panel  created.  Several  automated  aids  have  been  developed 
so  that  with  the  incorporation  of  the  multi-file  approach,  the  graphical  interface  is  less  of 
an  impedance  to  the  rapid  development  of  a  (especially  a  large)  prototype.  In  our 
estimation,  this  has  been  the  single  most  important  productivity  enhancement  to  CAPS  to 
have  been  incorporated  during  the  time  of  our  research. 

With  respect  to  productivity,  two  significant  features  demand  mention.  Firstly,  is 
the  automatic  driver  code  generation.  The  productive  impact  of  the  ability  to  quickly 
generate  error  free  drivers  would  require  a  separate  analysis  beyond  our  scope.  However, 
we  estimate  that  the  driver  code  for  even  a  small  project  would  require  a  programmer  with 
superior  knowledge  of  Ada  tasks  several  weeks  to  schedule,  write,  compile  and  debug. 
Large  system  prototyping  without  automatic  code  generation  simply  becomes 
economically  unfeasible.  Secondly,  is  the  ability  to  incorporate  rapidly  changing  design 
demands  (the  essence  of  prototyping).  We  performed  a  small  exercise  where  the  CAPS 
user  was  given  a  requirements  change  without  notice  and  the  result  was  timed.  We 
incorporated  changes  in  five  of  the  operators,  converting  them  to  time-critical  types.  This 
required  the  regeneration  of  the  operator  schedule  and  prototype  driver  program.  Total 
effort  was  2.5  hours.  We  estimate  that  an  identical  effort  done  manually  would  take  at 
least  12  hours  (2  hours  to  develop  the  schedule,  8  hours  to  write  the  changes  to  the  driver 
program,  and  2  hours  to  debug)  .  Had  additional  operators  been  required,  an  even  more 
pronounced  difference  would  be  observed. 

To  reiterate,  we  find  no  “show-stoppers”  in  the  use  of  CAPS  as  a  requirements 
generation  tool.  We  highly  recommend  that  the  next  logical  phase  be  undertaken:  to 
insert  CAPS  into  a  real  world  requirements  development  effort  with  a  team  of  experience 
systems  analysts  to  evaluate  it. 
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C.  UNRESOLVED  ISSUES 

The  major  unresolved  issue  with  respect  to  the  requirements  specification  and  the 
model  is  the  first  of  what  would  have  to  be  several  customer  evaluations  and  verifications. 
This  is  made  problematic  by  a  second  issue,  that  there  is  no  cognizant  technical  authority 
(or  convened  body)  to  evaluate  the  model  or  guide  us  in  these  further  iterations.  The  lack 
of  a  program  “sponsor”  who  can  direct  or  authorize  the  use  of  CAPS  as  an  integral  part  of 
the  development  team  constrains  both  our  work  and  any  possible  follow  on  effort. 

We  would  also  like  to  see  the  requirements  utilize  more  generic  definitions,  increasing  its 
utility  and  range  of  application 

With  respect  to  the  CAPS  tool  itself,  we  are  still  uncertain  whether  CAPS  is  ready 
for  widespread  distribution  as  an  alternative  to  current  products  and  processes  in  place 
which  have  clear  shortcomings.  The  application  of  CAPS  in  a  beta  environment  as  a  (the) 
primary  tool  for  requirements  generation  by  a  team  of  experienced  system  analysts  is  a 
must.  Secondly,  continued  modification  of  the  CAPS’  enviroiunent  to  make  it  easier  to 
learn  and  use,  as  well  as  increasing  productivity  is  necessary,  even  if  parallel  with  the  beta 
effort.  Those  must  include  a  major  effort  at  development  of  a  set  of  references 
(publication  or  on-line).  Platform  portability  will  be  crucial,  and  a  study  of  current 
platforms  in  the  installed  base  for  other  tools  should  be  conducted.  We  must  make  CAPS 
more  user  fiiendly. 

Modification  of  the  schedule  engine  to  address  the  shortcomings  associated  with 
the  data  stream  latencies  should  be  a  high  technical  priority.  Without  incorporation  of 
these  changes,  the  prototype  developer  must  resort  to  a  series  of  less  than  optimum  work¬ 
around. 

The  following  is  a  summary  of  suggested  projects  or  areas  of  research  with  a  first 
cut  estimate  of  labor  requirements  based  on  our  experience  with  CAPS  and  like  efforts 
within  the  CAPS’  group.  The  use  of  NPS  graduate  students  for  these  efforts,  while 
cutting  costs,  would  entail  a  1. 5-2.0  factor  for  calendar  time,  since  a  significant  portion  of 
their  time  is  assigned  to  other  tasks: 
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Development  of  CAPS  System  Documentation  .5  years 

Upgraded  Integrated  Development  Environment  1 .0  years 

Setup,  Training,  and  Support  of  a  One  Year 

Requirements  Project  (including  post-project 
economic  evaluation)  .5  years 

Platform  Portability  Study  .25  years 

Platform  Porting  (each;  some  may  not  be  practical)  .2  - 1.0  years 

D.  SUMMARY 

In  summary,  a  refined  ATACMS  model  is  complete  and  available  for  review  by 
Office  of  the  Director,  Test,  Systems  Engineering  &  Evaluation  (ODTSE&E)  or  any 
designated  representative.  We  believe  that  with  modification  of  the  model  to  incorporate 
actual/classified  data  that  the  model  is  sufficiently  robust  to  assist  in  identifying  those 
Critical  Operational  Issues  outlined  in  the  Memorandum  of  Agreement  covering  the 
ATACMS  End-to-End  System. 

The  comprehensive  use  of  CAPS  in  modeling  a  real  world  system  has  confirmed 
the  essential  qualities  of  the  system  while  identifying  several  issues  for  fiiture 
enhancements.  CAPS  represents  a  significant  opportunity  for  DOD  to  address  those 
software  development  issues  resulting  from  shortcomings  in  the  requirements  process. 
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APPENDIX  A. 


BASIC  MODEL  GRAPH  AND  PSDL 
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emission  str 


targ8l_aiTay2_str 


BASIC  MODEL  PSDL 


TYPE  target_.data 
SPECIFICATION 

END 

IMPLEMENTATION  ADA  target_data 

END 

OPERATOR  asas_:op 
SPECIFICATION 
INPUT 

target_array4_str  :  target_data 
OUTPUT 

f ire_cmdl_str  :  targe t_data 

END 

IMPLEMENTATION  ADA  asas_op 

END 

OPERATOR  atacms 
SPECIFICATION 

END 

IMPLEMENTATION 

GRAPH 

VERTEX  cnr_link_op 

VERTEX  commandos  tat ion_op 

VERTEX  jstars_op  :  200  MS 

VERTEX  scdl_link_op 

VERTEX  shoot er_op 

VERTEX  target_Gmitter_op  :  200  MS 

EEX3E  emission_str 
targe t_emitter_op 
jstars_op 

EDGE  f ire_cmd3_str 

cominand_station_op  -> 
cnr_link_op 

EDGE  f ire_cmd4_str 
cnr_link_op  -> 
shooter_op 

EDGE  target_arrayl_str 
jstars_op  “> 
scdl_link_op 

EDGE  target_array2_str 
scdl_link_op  -> 
corranand_stat  ion__op 
DATA  STREAM 

emission_str  :  target_data, 
f ire_cmd3_str  :  targe t_data, 
f ire_cmd4_str  :  target_data, 
target_arrayl_str  ;  target_data, 
target_array2_str  ;  target_data 
CONTROL  CONSTRAINTS 
OPERATOR  cnr_link_op 
TRIGGERED  BY  SOME 
f  ire_cmd3__str 
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'OPERATOR  commandos t at ion_op 

OPERATOR  jstars_op 
PERIOD  1000  MS 

OPERATOR  scdl_link_op 
TRIGGERED  BY  SOME 
target_arrayl_str 

OPERATOR  shoot er__op 
’TRIGGERED  BY  SOME 
f  ir  e__cmd4_s  tr 

OPERATOR  target_einitter_op 
PERIOD  1000  MS 

END 

OPERATOR  cnr_link;_op 
SPECIFICATION 
INPUT 

fire_cmd3_str  :  target_data 
OUTPUT 

fire_cmd4_str  :  target_data 

END 

IMPLEMENTATION  ADA  cnr_link_op 
END 

OPERATOR  coiiunand_station_op 
SPECIFICATION 
INPUT 

target_array2_str  :  target_data 
OUTPUT 

fire_cmd3_str  :  target_data 

END 

IMPLEMENTATION 

GRAPH 

VERTEX  asas_op 

VERTEX  ctoc_op 

VERTEX  grnd_stat_ir\od_op 

VERTEX  lanl_link_op 

VERTEX  lan2_link_op 

EDGE  f  ire_cmdl_str 
asas_op  -> 
lan2_link_op 

EDGE  f ire_cmd2_str 
lan2_link__op  -> 
ctoc_op 

EDGE  f ire_crad3_str 
ctoc_op  ~> 

EXTERNAL 

EEX3E  target_array2_str 
EXTERNAL  -> 
gr  nd_s  t  a  t_mod_op 

EDGE  targe t_array3_str 
grnd_stat_mod_op  -> 
lanl_link_op 
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EDGE  target_array4_str 
lanl_link_op  -> 
asas_op 
DATA  STREAM 

f ire_cmdl_str  :  target_data, 
fire__cmd2_str  :  target_data, 
targe t_array3__str  :  target_data, 
target_array4_str  :  target_data 
CONTROL  CONSTRAINTS 
OPERATOR  asas_op 
TRIGGERED  BY  SOME 
targe t_array4_str 

OPERATOR  ctoc_op 
TRIGGERED  'BY  SOME 
f ire_cmd2_str 

OPERATOR  grnd_stat_mod_op 
TRIGGERED  BY  SOME 
target_array2_str 

OPERATOR  lanl_link_op 
TRIGGERED  BY  SOME 
targe t_ar ray 3_str 

OPERATOR  lan2_link_op 
TRIGGERED  BY  SOME 
f i r G_cmdl_s  t  r 

'END 

OPERATOR  ctoc_op 
SPECIFICATION 
INPUT 

f ire_cmd2__str  :  target_data 
OUTPUT 

f ire_cind3_str  :  target_data 

END 

IMPLEMENTATION  ADA  ctoc_op 
END 

OPERATOR  grnd_stat_inod_op 
SPECIFICATION 
INPUT 

target_array2_str  :  target_data 
OUTPUT 

target_array3_str  :  target_data 

END 

IMPLEMENTATION  ADA  grnd_stat_mod_op 
END 

OPERATOR  jstars_op 
SPECIFICATION 
INPUT 

einission_str  :  target_data 
OUTPUT 

target_arrayl_str  :  target_data 
MAXIMUM  EXECUTION  TIME  200  MS 

END 

IMPLEMENTATION  ADA  jstars^op 
END 

OPERATOR  lanl_link__op 
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•‘Sl^ECIFICATION 
"  INPUT 

target_array3_str  :  target^data 
OUTPUT 

target_array4_str  :  target_data 

END 

IMPLEMENTATION  ADA  lanl_link_op 
END 

OPERATOR  lan2_link_op 
SPECIFICATION 
INPUT 

f  ire_cxndl_str  :  target_data 
OUTPUT 

fire_cmd2_str  :  targe tj_data 

END 

IMPLEMENTATION  ADA  lan2_link_op 
END 

OPERATOR  scdl_link_op 
SPECIFICATION 
INPUT 

target_arrayl_str  :  target_data 
OUTPUT 

target_array2_str  :  target_data 

END 

IMPLEMENTATION  ADA  scdl_link_op 


OPERATOR  shoot er_op 
SPECIFICATION 
INPUT 

f ire_cit\d4_str  :  target_data 

END 

IMPLEMENTATION  ADA  shooter_op 
END 

OPERATOR  target_emitter_op 
SPECIFICATION 
OUTPUT 

emission_str  :  target_data 
MAXIMUM  EXECUTION  TIME  20  0  MS 

END 

IMPLEMENTATION  ADA  targe t_einitter_op 


END 
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APPENDIX  B. 


REFINEMENT  I  GRAPH,  PSDL,  ADA  SOURCE  CODE 
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s 


xtemal 


Refinement  I  Source  Code 


atacms.psdl 


TYPE  gmd_stat_mod_anay 
SPECIFICATION 
END 

IMPLEMENTATION  ADA 
gmd_stat_mod_anay 

END 

TYPE  jstais_anay 
SPECIFICATION 
END 

IMPLEMENTATION  ADA  jstars_anay 
END 

TYPE  my_unit 
SPECIFICATION 
OPERATOR  pause 
SPECMCAHON 
OUTPUT 
X :  my_umt 
END 
END 

IMPLEMENTATION  ADA  my_uiiit 
END 

TYPE  taTget_data 
SPECMCAHON 
END 

IMPLEMENTATION  ADA  target_data 
END 

TYPE  target_eimtter_airay 
SPECMCAHON 
END 

IMPLEMENTAHON  ADA 
target_einitter_aiiay 

END 

OPERATOR  asas_op 
SPECMCAHON 
INPUT 


gui_in_str :  myjinit, 
target_array4_str ; 
gmd_stat_mod_anay 
OUTPUT 

fire_cmdl_str :  target_data 
MAXIMUM  EXECUHON  TIME 
200  MS 
END 

IMPLEMENTAHON  ADA  asas_op 
END 

OPERATOR  atacms 
SPECMCAHON 
STATES 

gui_in_str :  myjinit 
INITIALLY 
pause 

END 

IMPLEMENTAHON 

GRAPH 

VERTEX  ciir_Iiiik_op  :  50  MS 

VERTEX  cominand_station_op 

VERTEX  gui_in 

VERTEX  gui_out 

VERTEX  jstars_op :  500  MS 

VERTEX  scdI_Iiiik_op  :  50  MS 

VERTEX  shooter_op  :  50  MS 

VERTEX  target_eniitter_op :  500 
MS 

EDGE  emission_str 
target_einitter_op  -> 
jstars_op 

EDGE  fire_cmd3_str 
coiimiand_station_op  -> 
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cnrlinkop 

EDGE  fire_cmd4_str 
cair_liiik_op  -> 
shooter_op 

EDGE  gui_m_str 
gui_in-> 

coininand_station_op 

EDGE  giii_m_str 
gui_in-> 
target_eimtter_op 

EDGE  gui_in_str 
gui_m  -> 
jstars_op 

EDGE  gui_out_str 
shooter_op  -> 
gui_out 

EDGE  target_airayl_str 
jstars_op  -> 
scdl_liiik_op 

EDGE  target_anay2_str 
scdl_liiik_op  -> 
command_station_op 
DATA  STREAM 

eniission_str :  target_eniitter_amy, 
fire_cmd3_str :  target_data, 
fire_cmd4_str ;  target_data, 
gui_out_str :  target_data, 
target_anayl_str :  jstars_anay, 
target_array2_str :  jstars_array 
CONTROL  CONSTRAINTS 
OPERATOR  cnr_liiik_op 
TRIGGERED  BY  SOME 
fire_cmd3_str 

OPERATOR  coiiunand_station_op 

OPERATOR  gui_in 

OPERATOR  gui_out 

OPERATOR  jstars_op 
TRIGGERED  IF 
gui_in_str  /=  myunitpause 
PERIOD  8000  MS 


OPERATOR  scdl_liiik_op 
TRIGGERED  BY  SOME 
target_arrayl_str 

OPERATOR  shooter_op 
TRIGGERED  BY  SOME 
fire_cand4_str 

OPERATOR  target_emitter_op 
TRIGGERED  IF 
gui_m_str  /=  my_uiiit.pause 
PERIOD  16000  MS 
END 

OPERATOR  clioose_inputs 
SPECinCATION 
OUTPUT 

gui_in_str :  my_uiiit 
MAXIMUM  EXECUTION  TIME 
200  MS 
END 

IMPLK^NTATION  ADA 
choose_mputs 

END 

OPERATOR  cmds_out 
SPECIFICATION 
INPUT 

gui_out_str :  targetdata 
END 

IMPLEMENTATION  ADA  cmds_out 
END 

OPERATOR  ciir_liiik_op 
SPECIFICATION 
INPUT 

fiie_cmd3_str :  target_data 
OUTPUT 

fire_cmd4_str :  target_data 
MAXIMUM  EXECUTION  TIME  50 
MS 
END 

IMPLEMENTATION  ADA 
cnr_liiik_op 

END 

OPERATOR  coininand_station_op 
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SPECIFICATION 

INPUT 

gui_in_str :  my  unit, 
target_array2_str :  jstars_array 
OUTPUT 

fire_cmd3_str :  target_data 
END 

IMPLEMENTATION 

GRAPH 

VERTEX  asas_op :  200  MS 

VERTEX  ctoc_op  :  50  MS 

VERTEX  gmd_stat_modi_op :  50  MS 

VERTEX  Ianl_Iiiik_op ;  50  MS 

VERTEX  Ian2_liiik_op  :  50  MS 

EDGE  fire_cmdl_str 
asas_op  -> 

Ian2_Iink_op 

EDGE  fire_cmd2_str 
laii2_link_op  -> 
ctoc_op 

EDGE  fire_cmd3_str 
ctoc_op  -> 

EXTERNAL 

EDGE  gui_in_str 
EXTERNAL  -> 
asasop 

EDGE  target_array2_str :  5000  MS 
EXTERNAL -> 
gmd_stat_mod_op 

0)GE  target_anay3_str 
gmd_stat_mod_op  -> 
lanllinkop 

EDGE  target_array4_str 
lanl_Iink_op  -> 
asasop 

DATA  STREAM 
fire_cmdl_str :  target_data, 
fire_cmd2_str :  target_data, 
target_anay3_str :  gmd_stat_mod_an:ay, 
target_anay4_str :  gmd_stat_mod_aiTay 


CONTROL  CONSTRAINTS 
OPERATOR  asas_op 
TRIGGERED  IF 
gui_in_str  /=  my_uiiitpause 
PERIOD  4000  MS 

OPERATOR  ctoc_op 
TRIGGERED  BY  SOME 
fire_cmd2_str 

OPERATOR  gmd_stat_mod_op 
TRIGGERED  BY  SOME 
target_airay2_str 
MAXIMUM  RESPONSE  TIME 
5050  MS 

OPERATOR  Iaiil_link_op 
TRIGGERED  BY  SOME 
target_array3_str 

OPERATOR  lan2_link_op 
TRIGGERED  BY  SOME 
fire_cmdl_str 

END 

OPERATOR  ctoc_op 
SPECmCATTON 
INPUT 

fire_cmd2_str :  target_data 
OUTPUT 

fire_cmd3_str :  target_data 
MAXIMUM  EXECUTION  TIME  50 
MS 
END 

IMPLEMENTATION  ADA  ctoc_op 
END 

OPERATOR  gmd_stat_mod_op 
SPECIFICATION 
INPUT 

target_amy2_str :  jstarsamy 
OUTPUT 
target_array3_str : 
gmd_stat_mod_array 
MAXIMUM  EXECUTION  TIME  50 
MS 
END 

IMPLEMENTATION  ADA 
gmd_stat_mod_op 
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END 

OPERATOR  guiin 
SPECMCATTON 
OUTPUT 

gui_in_str :  my_umt 
END 

IMPLEMENTATION 

GRAPH 

VERTEX  clioose_mputs  :  200  MS 

VERTEX  gui_input_event_monitor :  200  MS 

EDGE  gui_in_str 
chooseinputs  -> 

EXTERNAL 

CONTROL  CONSTRAINTS 
OPERATOR  clioose_mputs 
PERIOD  2000  MS 

OPERATOR  gui_mput_event_monitor 
END 

OPERATOR  gui_input_event_monitor 
SPECIFICATION 

MAXIMUM  EXECUTION  TIME  200  MS 
END 

IMPLEMENTATION  ADA 
gui_input_event_monitor 

END 

OPERATOR  gui_out 
SPECIFICATION 
INPUT 

gui_out_str :  targetdata 
END 

IMPLEMENTATION 

GRAPH 

VERTEX  cmds_out 

EDGE  guioutstr 
EXTERNAL  -> 
cmds_out 

CONTROL  CONSTRAINTS 
OPERATOR  cmds_out 
TRIGGERED  BY  SOME 
guioutstr 

END 

OPERATOR  jstars_op 


SPECIFICATION 

INPUT 

eniission_str :  target_eimtter_array, 
gui_m_str :  my_uiiit 
OUTPUT 

target_arrayl_str :  jstars_airay 
MAXIMUM  EXECUTION  TIME 
500  MS 
END 

IMPLEMENTATION  ADA  jstars_op 
END 

OPEEIATOR  lanl_Iiiik_op 
SPECIFICATION 
INPUT 

target_array3_str : 
gmd_stat_mod_anay 
OUTPUT 
target_array4_str : 
gnid_stat_mod_aiTay 
MAXIMUM  EXECUTION  TIME  50 
MS 
END 

IMPLEMENTATION  ADA 
Ianl_link_op 

END  . 

OPERATOR  Iaii2_link_op 
SPECIFICATION 
INPUT 

£iie_cmdl_str :  target_data 
OUTPUT 

filTe_cmd2_str :  target_data 
MAXIMUM  EXECUTION  TIME  50 
MS 
END 

IMPLEMENTATION  ADA 
Iaii2_Iiiik_op 

END 

OPERATOR  scdl_link_op 
SPECIFICATION 
INPUT 

target_arrayl_str :  jstars_aiTay 
OUTPUT 

target_aiTay2_str ;  jstars_array 
MAXIMUM  EXECUTION  TIME  50 
MS 
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END 

IMPLEMENTATION  ADA  scdl_link_op 
END 

OPERATOR  shooter_op 
SPECMCAHON 
INPUT 

fire_cmd4_str :  target_data 
OUTPUT 

gui_out_str :  target_data 
MAXIMUM  EXECUTION  TIME  50  MS 
END 

IMPLEMENTATION  ADA  shooter_op 
END 

OPERATOR  target_eiratter_op 
SPECMCAHON 
INPUT 

gui_in_str :  my_iuiit 
OUTPUT 

einissioii_str :  target_eimtter_array 
MAXIMUM  EXECUTION  TIME  500  MS 
END 

IMPLEMENTATION  ADA  target_emitler_op 
END 
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atacms.a 


package  ATACMS_EXCEPT10NS  is 
~  PSDL  exception  type  declaration 

type  PSDL^EXCEPTION  is  (UNDECLARED_ADA_EXCEPTION); 
end  ATACMS_EXCEPTIONS; 

package  AT ACMS_INSTANTIATIONS  is 
->  Ada  Generic  package  instantiations 

end  ATACMS^INSTANTIATIONS; 

withPSDL_TIMERS; 
package  ATACMS_TIMERS  is 
-  Timer  instantiations 
end  ATACMS_TIMERS; 

~  with/use  clauses  for  atomic  type  packages 

with  GRND_STAT_MOD_ARRAy_PKG;  use  GRND_STAT_MOD_ARRAY_PKG; 

with  JSTARS_ARRAY_PKC^,  use  JSTARS_ARRAY_PKG; 

with  MY__UNIT_PKG;  use  MY_UNIT_^PKG; 

with  TARGET_DATA_PKG;  use  TARGET__DATA_PKG; 

with  TARGET_^EMnTER_ARRAY__PKG;  use  TARGET_EMnTER_ARRAY__PKG; 

-  with/use  clauses  for  generated  packages, 

with  ATACMS^EXCEPTIONS;  use  ATACMS_EXCEPTIONS; 

with  ATACMS_INSTANTIATIONS;  use  ATACMS_INSTANTIATIONS; 

~  with/use  clauses  for  CAPS  library  packages, 
with  PSDL_STREAMS;  use  PSDL_^STREAMS; 
package  ATACMS_STREAMS  is 

-  Local  stream  instantiations 

package  DS_EMISSION  STR_JSTARS_OP  is  new 
PSDL_STREAMS.SAMPLED__BUFFER(TARGET_EMnTER_ARRAY); 


package  DS_FIRE_CMD3_STR_CNR_LINK_OP  is  new 
PSDL_STREAMS.SAMPLED_BUFFER(TARGET_DATA); 

package  0S_FIRE_CMD4_STR_SHOOTER_OP  is  new 
PSDL_STREAMS.SAMPLED^BUFFER(TARGET_DATA); 

package  DS_GUI_OUT_STR__CMDS  OUT  is  new 
PSDL_STREAMS.SAMPLED_BUFEER(TARGET_DATA); 

package  DS_TARGET_ARRAYl_^STR_SCDL_LINK_OP  is  new 
PSDL^STREAMS.SAMPLED^BUFFER(JSTARS_ARRAY); 

package  DS_TARGET_ARRAY2_STR_GRND_STAT_MOD_OP  is  new 
PSDL_STREAMS.SAMPLED_BUFFER(JSTARS_ARRAY); 


package  DS_FIRE_CMDl_STR_LAN2_LINK_OP  is  new 
PSDL_STREAMS.SAMPLED_BUFFER(TARGET_DATA); 

package  DS_FIRE_CMD2_STR_CTOC_OP  is  new 
PSDL_STREAMS.SAMPLED_BUFFER(TARGET_DATA); 

package  DS_TARGET__ARRAY3_STR_LANl_LINK_OP  is  new 
PSDL_STREAMS.SAMPLED_BUFFER(GRND^STAT_MOD_ARRAY); 

package  DS_TARGET_ARRAY4_STR_AS  AS_OP  is  new 
PSDL_STREAMS.SAMPLED_BUFFER(GRND_STAT_MOD_ARRAY); 

--  State  stream  instantiations 


66 


padcage  DS_GUl_IN_STR_ASAS_OP  is  new 

PSDL_STREAMS.STATE_VARIABLE(MY_UNIT_PKG.MY_1JNIT,  PAUSE); 


padcage  DS_GUI_IN_STR_JSTARS_OP  is  new 

PSDL_STREAMS.STATE_VARIABLE(MY_UNIT_PKG.MY_UNIT,PAUSE); 

package  DS_GUI_IN_STR_TARGET_EMITrER_OP  is  new 
PSDL_STREAMS.STATE_VARIABLE(MY_UNrr_PKG.MY_UNIT,  PAUSE); 

end  ATACMS_STRE  AMS; 

padcage  ATACMS_DRIVERS  is 
procedure  CNR_LINK_OP_DRrVE^ 
procedure  JSTARS_OPJDRrVER; 
procedure  SCDL_LINK_OP_DRIVER; 
procedure  SHOOTER_OP_DRrVER; 
procedure  TARGET_EMlTl'ER_OP_DRIVER; 
procedure  ASAS_OP_DRIVER; 
procedure  CTOC_OP_DRIVE]^ 
procedure  GRND_STAT_MOD_OP_DRIVER; 
procedure  LANl_UKK_OP_DRIVER; 
procedure  LAN2_LINK_OP_DRIVER; 
procedure  CHOOSE_INPUTS_DRIVER; 
procedure  GUI_INPUT_EVENT_MONrrOR_DRIVER; 
procedure  CMDS_OUT_DRIVER; 

end  ATACMS_DRIVERS; 


-  with/use  clauses  for  atomic  conq)onents. 

with  GRND_STAT_MOD_ARRAY_PKG;  use  GRND_STAT_MOD_ARRAY_PKG; 

with  JSTARS_ARRAY_PKG;  use  JSTARS_ARRAY_PKG; 

wWi  MY_UNrr_PKG;  use  MY_UNrr_PKG; 

with  TARGET_D AT A_PKG;  use  TARGET_DATA_PKG; 

with  TARGET_EMnTER_ARRAY_PKG;  use  TARGET_EMnTER_ARRAY_PKG; 

with  AS  AS_OP_PKG;  use  ^AS_OP_PKG; 

with  CHOOSE_INPUTS_PKG;  use  CHOOSE_INPUTS_PKG; 

with  CMDS_OUr_PKG;  use  CMDS_OUT_PKG; 

with  CNR_LINK_OP_PKG;  use  CNR  LINK_OP_PKG; 

with  CTOC_OP_PKO,  use  CTOC_OP^PKG; 

with  GRND_STAT_MOD_OP_PKG;  use  GRND_STAT_MOD_OP_PKG; 

with  GUI_INPUT_EVENT_MONrrOR_PKG;  use  GUI_INPUT_EVENT_MONn'OR_PKG; 

with  JSTARS_OP_PK(P,  use  JSTARS_OP_PKG; 

with  LANl_UNK_OP_PKG;  use  LANl_UNK_OP_PKG; 

with  LAN2_LINK_OP_PKG;  use  LAN2_LINK_OP_PKG; 

with  SCDL_UNK_OP_PKG;  use  SCDL_LINK_OP_PKG; 

with  SHOOTER_OP_PKG;  use  SH(X)TER_OP_PKG; 

wWi  TARGET_EMnTER_OP_PKG;  use  TARGET_EMnTER_OP_PKG; 

-  wifli/use  clauses  for  generated  padcages. 

with  ATACMS_EXCEPnONS;  use  ATACMS_EXCEPTIONS; 

with  ATACMS_STREAMS;  use  ATACMS_STREAMS; 

with  ATACMS_T1MERS;  use  ATACMS_TIMERS; 

with  ATACMS_INSTANTtATIONS;  use  ATACMS_INSTANTIATIONS; 

-  widiAise  clauses  for  CAPS  library  packages, 
with  DS_DEBUG_PKG;  use  DS_DEBUG_PKG; 
with  PSDL_STREAMS;  use  PSDL_STREAMS; 
with  PSDL_TIMERS; 

padcage  bocfy  ATACMSJDRTVERS  is 

procedure  CNR_LINK_OP_DRIVER  is 

LV_FIRE_CMD3_STR ;  TARGBT_DATA_PKG.TARGET_DATA; 
LV_FIRE_CMD4_STR :  TARGET_DATA_PKG.TARGET_DATA; 


EXCEPnON_HAS_OCCURRED:  BOOLEAN  :=  FALSE; 
EXCEPnON_ID:  PSDL_EXCEPnON; 
begin 

-  Data  trigger  checks. 

if  not  (DS_FIRE_CMD3_STR_CNR_LlNK_OP.NEW_DATA)  then 
return; 
end  if; 


67 


-  Data  stream  reads. 

begin 

DS__FIRE_CMD3_STR_CNR_LINK_.OP.BUFFER.READ(LV_FIRE_CMD3_STR); 

exception 

wdien  BUFFER^UNDERFLO  W  -> 

DS_^DEBUG.BUFFER_UNDERFLOW("FIRE__CMD3_STR_CNR_^LINK_OP”,"CNR_LINK_OP"); 

end; 

“  Execution  trigger  condition  check, 
if  True  then 
begin 

CNR_LINK_OP( 

FIRE_CMD3_STR  =>  LV_FIRE^CMD3_STR, 

F1RE_CMD4_STR  =>  LV__FIRE_CMD4_STR); 
exception 
when  others  => 

DS_DEBUaUNDECLARED_EXCEP110N("CNR_LINK_0P”); 
EXCEPnON^HAS_CX:CURRED  -  true; 

EXCEPTION_rD  :=UNDECLARED_ADA_EXCEPnON; 
end; 

else  return; 
end  if, 

-  Exception  Constraint  translations. 

-  Other  constraint  option  translations. 

—Unconditional  ou^ut  translations. 

if  not  EXCEPTION_HAS_.OCCURRED  then 
begin 

DS_FIRE__CMD4_STR__SHOOTER_OP.BUFFER.WRITE(LV_FIRE_CMD4_STR); 

exception 

when  BUFFER_OVERFLOW  -> 

DS_DEBUG.BUFFER_OVERFLOW("FIRE_CMD4_STR_SHOOTER_OP","CNR_LINK_OP"); 
enc^ 
end  if, 

-  PSDL  Exception  handler. 

if  EXCEPnON^HAS^OCCURRED  then 
DS_DEBUG,UNHANDLED_EXCEPnON( 

"CNR__LINK^OP", 

PSDL_EXCEPnomMAGE(EXCEPnON_ID)); 
end  if, 

end  CNR_LINK_OP__DRIVER; 


procedure  JSTARS_OP_DRrVER  is 

LV_EMISSION_STR :  TARGET_EMITTER_ARRAY_PKG.TARGET_EMnTER^ARRAY; 
LV^GUI_IN_STR :  MY__UNIT_PKG.MY_UNrr; 

LV_TARGET_ARRAY1_STR :  JSTARS_.ARRAY_PKG.  JSTARS__ARRAY; 

EXCEPnON__HAS__OCCURRED;  BOOLEAN  :=  FALSE; 

EXCEPnON_ID:  PSDL_EXCEPTION; 
begin 

—  Data  trigger  checks. 


—  Data  stream  reads, 
begin 

DS_EMISSION_STR_JSTARS_OP.BUFFER.READ(LV_EMISSION__^STR); 

exception 

when  BUFFER^UNDERFLOW  => 

DS__DEBUG.BUFFER_UNDERFLOW("EMISSION_STR_JSTARS_OP’’,"JSTARS_OP"); 

end; 

begin 

DS_GUI_IN_STR_JSTARS_OP.BUFFER,READ(LV_GUI_IN_STR); 

exception 

when  BUFFER_UNDERFLOW  => 

DS_DEBUG.BUFFER_UNDERFLOW("GUI_IN_STR_JSTARS_OP",”JSTARS_OP"); 

end; 
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-  Execution  trigger  condition  check. 

if  (LV_GUI_IN_STR/=  MY__UNrr_PKG.PAUSE)  then 
begin 

JSTARS_OP( 

EMISSION^STR  =>  LV^EMISSION^STR, 

GUI_IN_^STR  =>  Ly_GUI_IN_STR, 

TARGET_ARRAY1^STR  =>  LV_TARGET_ARRAY1_STR); 
exception 
v^en  others  => 

DS^DEBUGUNDECLARED_EXCEPnON(”JSTARS_^OP"); 

EXCEPnON_HAS_OCCURRED  :=true; 

EXCEPnON_ID  :=  UNDECLARED^Ar)A__EXCEPnON; 
end; 

else  return; 
end  if, 

-  Exception  Constraint  translations. 

Other  constraint  option  translations. 

-^Unconditional  ou^ut  translations. 

if  not  EXCEPnON_HAS_OCCURRED  then 
begin 

DS_TARGET_ARRAYl_STR__SCDL_LINK_OP.BUFFER.WRITE(LV_TARGET_^ARRAYl_STR); 

exception 

\vhen  BUFFER^OVERFLOW  => 

DS_DEBUGBUFFER_OVERFLOW("TARGET_ARR4Yl_STR_SCDL_LINK_OP",  "JSTARS_OP"); 
end; 
end  if, 

~  PSDL  Exception  handler. 

if  EXCEPnON_HAS_OCCURRED  then 
DS_DEBUG.UNHANDLED^EXCEPnON( 

"JSTARS^OP", 

PSDL_EXCEPn01SnMAGE(EXCEPn0N_ID)); 
end  if, 

end  JSTARS_OP_DRIVER; 


procedure  SCDL_LINK_OP_DRIVER  is 

LV_^TARGET_ARRAY1_STR :  JSTARS__ARRAY_PKG  JSTARS^ARRAY; 
LV_TARGET_ARRAY2_STR :  JSTARS_^ARRAY_PKG  JSTARS_ARRAY; 


EXCEPnON^HAS^OCCURRED:  BOOLEAN  :=  FALSE; 
EXCEPnONJD:  PSDL_EXCEPnON; 
begin 

-  Data  trigger  diecks. 

if  not  (DS_TARGET_ARRAYl_STR_SCDL_LINK_OP.NEW_DATA)  then 
return; 
end  if; 


-  Data  stream  reads. 


begin 

DS_TARGET_ARRAYl_STR_SCDL_LINK_OP.BUFFERREAD(LV_TARGET_ARRAYl_STR); 

exception 

\^4ien  BUFFER_UNDERFLOW  =^> 

DS_DEBUG.BUFFER_UNDERFLOW(”TARGET_ARRAYl_STR_SCDL_LINK  OP",  "SCDL  LINK  OP"); 
end; 


-  Execution  trigger  condition  check, 
if  True  then 
begin 

SCDL_LINK_OP( 

TARGET^ARRAYl^STR  =>  LV_TARGET_^ARRAY1_STR, 
TARGET_ARRAY2_STR  LV_TARGET_ARRAY2_STR); 
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exception 
when  others  => 

DS_DEBUG.UNDECLARED_EXCEPT[ON("SCDL  LINK  OP"); 

EXCEPnON_HAS_OCCtlKRED  :=true; 

EXCEPnON_ID:=UNDECLARED_ADA  EXCEPTION; 
end; 

else  return; 
end  if, 

—  Exception  Constraint  translations. 

—  Other  constraint  option  translations. 

—Unconditional  output  translations. 

if  not  EXCEPTION_HAS_OCCURItED  then 
begin 

DS_TARGET_ARRAY2_STR_GRND_STAT_MOD_OP.BUFFER.WRrrE(LV_TARGET  AERAY2  STRV 

exception  ^ 

when  BUFFER_OVERFLOW  => 

DS_DEBUG.BUFFER_OVERFLOW("TARGET_ARRAY2_STR_GRND  STAT  MOD  OP",  "SCDL  LINK  OP")- 
end;  -  -  _  _  y, 

end  if; 

—  PSDL  Exception  handler. 

if  EXCEPTION__HAS__OCCURRED  then 
DS_DEBUG.UNHANDLED_EXCEPTION( 

"SCDL_LINK^OP", 

PSDL_EXCEPTIOmMAGE(EXCEPnON_rD)); 
end  if, 

end  SCDL_LINK_OP_DRIVER; 


procedure  SHOOTER_OP_DRIVER  is 
LV_FIRE_CMD4_^STR :  TARGET_DATA_^PKG.TARGET_DATA; 
LV_GUI_OUT_STR :  TARGET_DATA_PKG.TARGET_DATA; 

EXCEPnON^HAS^OCCURRED:  BOOLEAN  :=  FALSE; 
EXCEPTION_ID:  PSDL^EXCEPTION; 
begin 

-  Data  trigger  checks. 

if  not  (DS_FIRE_CMD4_STR_SHOOTER_OP.NEW_DATA)  then 
return; 
end  if. 


-  Data  stream  reads. 

begin 

DS_FIRE_CMD4_STR_SHOOTER_OP.BUFFERREAD(LV_FIRE_CMD4_STR); 

exception 

vdien  BUFFER^UNDERFLOW  => 

DS_DEBUG.BUFFER_UNDERFLOW("FIRE_CMD4_STR_SHOOTER_OP”,  "SHOOTER  OP")- 

end;  ” 

-  Execution  trigger  condition  check. 

if  True  then 
begin 

SHOOTER_OP( 

FIRE_CMD4^STR  ->  LV_^FIRE_CMD4^STR, 

GUI_OUT_STR  =>  LV_GUI_OUT_STR); 
exception 
when  others  => 

DS_DEBUG.XMDECLARED_EXCEPTION("SHOOTER_OP"); 
EXCEPTION^HAS^OCCURRED  :=tnie; 

EXCEPTION_ID  :=  UNDECLARED_ADA_EXCEPTION; 
end; 

else  return; 
end  if; 
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-  Exception  Constraint  translations. 

—  Other  constraint  option  translations. 


-Unconditional  ou^ut  translations. 

if  not  EXCEPnON_HAS_OCCURRED  then 
begin 

DS_GUI^OUT_STR_CMDS_OUT.BUFFER.WRrrE(LV_GUI_OUT_STR); 

exception 

when  BUFFER^OVERFLOW  => 

DS_DEBUG.BUFFER_OVERFLOW("GUI_OUT_STR_CMDS  OUT",  "SHOOTER  OP"); 
en<^ 
endi^ 


-  PSDL  Exception  handler. 

if  EXCEPTION_.HAS_OCCURRED  then 
DS_DEBUG.UNHANDLED_EXCEPTION( 
"SHOOTER^OP", 

PSDL_EXCEPTIOmMAGE(EXCEPTION_ID)); 
end  if, 

end  SHOOTER_OP_DRIVER; 


procedure  TARGET_EMnTER_OP__DRI  VER  is 
LV_GUI_IN_STR :  MY_UNIT_.PKG.MY__UNIT; 

LV^EMISSION^STR :  TARGET_EMrrrER_ARRAY_PKG.TARGET_EMnTER_ARRAY; 


EXCEPTION_HAS_OCCURRED:  BOOLEAN FALSE; 
EXCEPTION,©:  PSDL,EXCEPTION; 
begin 

-  Data  trigger  checks. 


-  Data  stream  reads. 

begin 

DS,GUI_m,STR,TARGET,EMnTER,OP.BUFFERREAD(LV,GUI_IN,STR); 

exception 

when  BUFFERJUNDERFLOW  -> 

DS,DEBUG.BUFFER_LINDERFLOW("GUI_IN_STR_TARGET_EMnTER_OP",  "TARGET_EMnTER,OP"); 
en<^ 

“  Execution  trigger  condition  dieck. 

if  (LV,GUI_IN,STR/=MY_UNrr,PKG.PAUSE)  then 
begin 

TARGET,EMnTER_OP( 

GUI_IN,STR  =>  LV,GUI,IN_STR, 

EMISSION,STR  =>  LV,EMISSION_STR); 
exception 
when  others  => 

DS_DEBUG.UNDECLARED_EXCEPTION(’TARGET,EMnTER,OP"); 

EXCEPTION_HAS,OCCURRED  :=  true; 

EXCEPTION,©  UNDECLARED,ADA,EXCEPTION; 
end; 

else  return; 
end  if, 

-  Exception  Constraint  translations. 

~  Other  constraint  option  translations. 

-Unconditional  ou^ut  translations. 

if  not  EXCEPTION,HAS_OCCURREDthen 
begin 

DS,EMISSION,STR,JSTARS,OP.BUFFERWRITE(LV,EMISSION_STR); 

exception 

>^en  BUFFER,OVERFLOW  -> 

DS,DEBUG.BUFFER_OVERFLOW("EMISSION,STR,JSTARS,OP",  "TARGET  EMITTER  OP")- 
end; 
end  if. 
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—  PSDL  Exception  handler. 

if  EXCEPTION_HAS_OCCURRED  then 
DS_DEBUG.UNHANDLED_EXCEPnON( 
"TARGET^EMITTER^OP", 
PSDL_EXCEPnONlMAGE(EXCEPTION_ID)); 
end  if, 

end  TARGET_EMITTER_OP_DRIVEIU 


procedure  AS  AS_OP_DRIVER  is 
Ly_GUI^IN_STR :  MY_UNIT^PKG.MY_UNIT; 

LV_^TARGET_ARRAY4_,STR :  GRND_STAT^MOD_ARRAY_PKG.GRND_STAT_MOD__ARRAY; 
LV^FTRE^CMDl^STR :  TARGET_DATA__PKG.TARGET_^DATA; 


EXCEPTION_HAS_OCCURRED:  BOOLEAN  :=  FALSE; 

EXCEPnON^ID:  PSDL_EXCEPnON; 
begin 

~  Data  trigger  checks. 

—  Data  stream  reads. 

begin 

DS_GUI_^IN_STR_ASAS_OP.BLfFFER,READ(LV_GUI_IN_STR); 

exception 

when  BUFTER_UNDERFLOW  => 

DS_DEBUG.BUFFER_UNDERFLOW("GUI_IN_STR__ASAS_OP'',  ”ASAS__OP"); 
end; 
begin 

DS_TARGET_ARRAY4_STR_ASAS_OP.BUFFERREAD(LV__TARGET_ARRAY4__STR); 

exception 

when  BUFFER_UNDERFLOW  => 

DS_DEBUG.BUFFER__UNDERFLOW("TARGET_ARRAY4_STR_ASAS_OF',  "ASAS^OP”); 
end; 

~  Execution  trigger  condition  check, 

if  (Ly^Gm_IN__STR/=MY_LINrr_PKG.PAUSE)  then 
begin 

ASAS_OP( 

GUI_IN_STR  =>  LV_GUI_IN_STR, 

TARGET_ARRAY4_STR  =>  LV_TARGET_ARRAY4_STR, 

FIRE_CMD1_STR  =>  LV_FIRE_CMD1_STR); 
exception 
'when  others  ==> 

DS_DEBUG.UNDECLARED_EXCEPTION("ASAS_OP"); 

EXCEPnON_HAS_OCCURRED  :=true; 

EXCEPnON__ID  :=UNDECLARED_^ADA__EXCEPTION; 
end; 

else  return; 
end  if, 

—  Exception  Constraint  translations. 

Other  constraint  option  translations. 

“Unconditional  output  translations. 

if  not  EXCEPTION_HAS_OCCURRED  then 
begin 

DS_FIRE_CMDl_STR_LAN2_LINK^OP.BUFFER.WRrrE(LV_FIRE_CMDl^STR); 

exception 

when  BUFFER_OVERFLOW  => 

DS_DEBUG.BUFFER_OVERFLOW(”FIRE_CMDl_STR_LAN2_LINK_OP”,  "ASAS_OP"); 
end; 
end  if, 

—  PSDL  Exception  handler. 

if  EXCEPTION_HAS^OCCURRED  then 
DS_DEBUG.UNHANDLED_EXCEPTION( 

”ASAS_OP", 

PSDL_EXCEPTION’IMAGE(EXCEPTION_ID)); 
end  if; 
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end  AS AS^OP_DRIVER; 


procedure  CTOCOPDRIVER  is 

LV__FIRE_CMD2_STR :  TARGET_DATA^PKG.TARGET_DATi^ 

LV^FIRE^CMDS^STR :  TARGET_DATA_PKG.TARGET_DATA; 

EXCEPnON_HAS_OCCURRED:  BOOLEAN FALSE; 

EXCEPnON_ID:  PSDL_EXCEPnON; 
begin 

~  Data  trigger  checks. 

if  not  (DS_FIRE_CMD2_STR_CTOC_OP.NEW^D  ATA)  then 
return; 
end  if, 

~  Data  stream  reads, 
begin 

DS_iaRE_CMD2_STR_CTOC_OP.BUKFERREAD(LV_FIRE_CMD2_STR); 

exception 

^^en  BUFFER^LNDERFLOW  => 

DS_DEBUG.BUITER_UNDERFLOW(”FIRE_CMD2_STR_CTOC_OP'*,  "CTOC  OP"); 
end; 

~  Execution  trigger  condition  check, 
if  True  then 
begin 

CTOC_OP( 

FIRE_CMD2_STR  =>  LV_FIRE_CMD2_STR, 

FIRE_CMD3_STR  =>  LV_FIRE_CMD3_STR); 
excq)tiQn 
when  others  => 

DS^DEBUG.UNDECLARED_EXCEPnONC'CTOC_OP"); 
EXCEPnON^HAS_OCCURRED  -  true; 

EXCEPTION^ID  -  UNDECLARED_ADA_EXCEPnON; 
end; 

else  return; 
end  if, 

-  Exception  Constraint  translations. 

~  Other  constraint  option  translations. 

-Unconditional  output  translations. 

if  not  EXCEPnON_HAS_OCCURRED  then 
begin 

DS_FIRE^CMD3_STR_CNR^LINK_OP.BUFFERWRITE(LV_FIRE_CMD3_STR); 

exception 

vihea  BUFFER^OVERFLO  W  => 

DS_DEBUG.BUFFER_OVERFLOW(*'FIRE_CMD3_STR_CNR  LINK  OP",  "CTOC  OP")- 
end; 
end  if; 

-  PSDL  Exception  handler. 

if  EXCEPnON^HAS_OCCURRED  then 
DS_DEBUG.UNHANDLED__EXCEPnON( 

"CTOC__OP", 

PSDL_^EXCEPnONTMAGE{EXCEPnON__ID)); 
end  if, 

end  CTOC_OP_,DRIVER; 


procedure  GRND_STAT_MOD_OP_DRIVER  is 
LV_TARGET_ARRAy2_STR :  JSTARS_ARRAY_PKG.  JSTARS_ARRAY; 
LV_TARGET_ARRAY3_STR :  GRND_STAT_MOD_ARRAY_PKG.GRND_STAT_MOD_ARRAY; 


EXCEPnON_HAS^OCCURRED:  BOOLEAN  -  FALSE; 
EXCEPTION JD:  PSDL_EXCEPTION; 
begin 
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“  Data  trigger  chedcs. 

if  not  (DS_TARGET_ARRAY2_STR_GRND_STAT_MOD__OP.NEW_DATA)  then 
return; 
end  if, 

»  Data  stream  reads, 
begin 

DS^TARGET_ARRAY2_STR_GRND_STAT_MOD_OP.BUFFER.READ(LV_TARGET_ARRAY2_STR); 

exception 

when  BUFFER_XJNDERFLO  W  => 

DS_DEBUG.BUFFER_UNDERnX)W("TARGET_AKRAY2_STR_GRl^_STAT  MOD  OP”,  "GRND  STAX  MOD  OP"); 
end; 

-  Execution  trigger  condition  check. 

if  True  then 
begin 

GRND_STAT_MOD_OP( 

TARGET_ARRAY2_STR  =>  LV_TARGET_ARRAY2_STR, 

TARGET__ARRAY3_.STR  =>  Ly,TARGET_ARRAY3_STR); 
exception 
when  others  => 

DS_DEBUG.UNDECLARED_EXCEPnON("GRND_STAT_MOD__OP"); 

EXCEPnON^HAS^OCCURRED  :=true; 

EXCEPTION_^ID  :=  UNDECLARED_ADA^EXCEPTION; 
end; 

else  return; 
end  if, 

-  Exception  Constraint  translations. 

-  Other  constraint  option  translations. 

—Unconditional  output  translations. 

if  not  EXCEPTION_HAS_OCCURRED  then 
begin 

DS_TARGET_ARRAY3_STR_LANl_LINK_OP,BUFFERWRITE(LV_TARGET_ARRAY3_STR); 

excqrtion 

when  BUFFERED VERFLOW  -> 

DS_DEBUG.BUFFER_OVERFLOW("TARGET_ARRAY3_STR_LANl_LINK_OP”,"GRND_STAT_MOD_OP"); 
end; 
end  if, 

-  PSDL  Exception  handler. 

if  EXCEPTION_HAS_OCCURRED  then 
DS_DEBUG.UNHANDLED_EXCEPTION( 

"GRND_STAT_.MOD_OP”, 

PSDL_EXCEPTIONTMAGE(EXCEPTION_ID)); 
end  if, 

end  GRND_STAT_MOD_.OP_DRIVER; 


procedure  LANl_LINK_OP_DRrVER  is 

LV_TARGET_ARRAY3_STR :  GRND_STAT_MOD_^ARRAY_PKG.GRND_STAT_MOD_ARRAY; 
LV_TARGET_ARRAY4_STR :  GRND_STAT^MOD_ARRAY_PKG.GRND_STAT_,MOD__ARRAY; 

EXCEPTION_HAS_OCCURRED:  BOOLEAN  :=  FALSE; 

EXCEPTION_ID:  PSDL^EXCEPTION; 
begin 

-  Data  trigger  checks. 

if  not  (DS_TARGET_ARRAY3_STR_LANl_LINK_OP.NEW_DATA)  then 
return; 
end  if; 
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-  Data  stream  reads. 

begin 

DS_TARGET_ARRAY3_STR_^LANl_LINK_OP.BUFFER.READ(LV_TARGET_ARRAY3_STR); 

exception 

v/hea  BUFFER_UNDERFLO  W  => 

DS_DEBUG,BUFFER_UNDERFLOW("TARGET_ARRAY3_STR_LANl_LlNK  OP",  "LANl  LINK  OP"); 
end; 

-  Execution  trigger  condition  check. 

if  True  then 
begin 

LANl^LINK_OP( 

TARGET_^ARRAY3_STR  =>  LV_TARGET__ARRAY3_STR, 

TARGET_ARRAY4__STR  =>  LV_TARGET__ARRAY4_STR); 
exception 
Mvhea  others  -> 

DS_DEBUG.UNDECLARED_EXCEPnON("LANl_LINK_OP"); 

EXCEPnON_HAS  OCCURRED  :=  true; 

EXCEPTION^ID  :-"UNDECLARED_ADA_EXCEPTION; 
end; 

else  return; 
end  if, 

-  Exception  Constraint  translations. 

~  Other  constraint  option  translations. 

-Unconditional  ou^ut  translations. 

if  not  EXCEPTION JIAS^OCCURRED  then 
begin 

DS_TARGET__ARRAY4_STR_^ASAS_OP.BUFFERWRrrE(LV_TARGET_ARRAY4_STR); 

exception 

wiien  BUFFER_OVERnG  W  => 

DS_DEBUG.BUFFER_OVERFLOW("TARGET__ARRAY4_STR_ASAS_OP","LANl_LINK_OP"); 
end; 
end  if, 

~  PSDL  Exception  handler. 

if  EXCEPTION_HAS_OCCURRED  then 
DS^DEBUG.UNHANDLED_EXCEPTION( 

"LANl_LINK_OP", 

PSDL^EXCEPTIONTMAGE(EXCEPTION^ID)); 
end  if, 

end  LANl_LINK_OP_DRIVEIU 


procedure  LAN2_LINK_OP_DRIVER  is 
LV_FIRE_CMD1_STR :  TARGET  DATA_PKG.TARGET_DATA; 
LV_FIRE_CMD2_STR :  TARGET"daTA_PKG.TARGET_DATA 


EXCEPTION_.HAS^OCCURRED:  BOOLEAN  :=  FALSE; 

EXCEPTI0N_,ID:  PSDL_EXCEPTI0N; 
begin 

-  Data  trigger  checks. 

if  not  (DS_FIRE_CMD1_STR_LAN2_LINK_0P.NEW_DATA)  then 
return; 
end  if, 

—  Data  stream  reads. 

begin 

DS_FIRE_CMD1_STR_^LAN2_LINK_0P.BUFFERREAD(LV_FIRE_CMD1_STR); 

exception 

when  BUFFER  ^UNDERFLOW  => 

DS_DEBUG.BUFFER^UNDERFL0W("FIRE_CMD1_STR^LAN2_LINK  OP",  "LAN2  LINK  OP"); 
end; 
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—  Execution  trigger  condition  check. 

if  Tnie  then 
begin 

LAN2_LINK_OP( 

FIRE_CMD1_STR  =>  LV_FIRE_CMD1_STR, 

FIRE_CMD2_STR  ->  LV_FIRE_CMD2_^STR); 
exception 
when  others  => 

DS^DEBUG.UNDECLARED_EXCEPnONCLAN2_LINK__OP"); 
EXCEPnON_.HAS^OCCURItED  :-tme; 

EXCEPTION^,©  :=  UNDECLAKED_ADA_EXCEPnON; 
end; 

else  return; 
end  if, 

~  Exception  Constraint  translations. 

-  Other  constraint  option  translations. 

“Unconditional  ou^ut  translations. 

if  not  EXCEPTION_^HAS_OCCURRED  then 
begin 

DS_FIRE^CMD2_STR__CTOC^OP.BUFFER.WRITE(LV_FIRE_CMD2_STR); 

exception 

when  BUFFER_OVERFLOW  => 

DS_DEBUG.BUFFER_^OVERFLOW("FIRE_CMD2_STR_CTOC  OP",  "LAN2  LINK  OP”); 
end; 
end^ 

“  PSDL  Exception  handler. 

if  EXCEPnON_HAS_^OCCURRED  then 
DS_DEBUG.UNHANDLED_EXCEPnON( 

”LAN2_LlNK_OP", 

PSDL__EXCEPnomMAGE(EXCEPnON_ID)); 
end  if, 

end  LAN2__LINK_OP^DRIVER; 


procedure  CHOOSE_INPUTS_DRIVER  is 
LV_GUI^IN_STR :  MyjJNIT_PKG.MY__UNIT; 

EXCEPTION__HAS_OCCURRED:  BOOLEAN  :=  FALSE; 
EXCEPnON^ID:  PSDL_EXCEPTION; 
begin 

~  Data  trigger  checks. 

“  Data  stream  reads. 

-  Execution  trigger  condition  check, 
if  True  then 
begin 

CHOOSE_INPUTS( 

GUI_IN__STR  =>  LV_GUI_IN_STR); 
exception 
when  others  => 

DS_DEBUG.UNDECLARED_EXCEPTION("CHOOSE_INPUTS"); 
EXCEPnON_HAS^OCCURRED  -  true; 

EXCEPTION^ID  :=  UNDECLARED__ADA_EXCEPTION; 
end; 

else  return; 
end  if 

“  Exception  Constraint  translations. 

“  Other  constraint  option  translations. 
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— Uncosditi(mal  output  translations. 

if  not  EXCEPnON_HAS_OCCURRED  then 
begin 

DS__GUI_IN_STR_ASAS__OP.BUFFER.WRrrE(LV_GUI_IN_STR); 

exception 

when  BUFFER_OVERPLOW  => 

DS_DEBUG.BlJFFER_OVERFLOW("GUI_IN_STR  ASAS  OP",  "CHOOSE  INPUTS"); 
end; 
begin 

DS_GUI_IN_STRJSTARS_OP.BUFFER.WRITE(LV_^GUI^IN^STR); 

exception 

\^^en  BUFFER^OVERFLOW  => 

DS_DEBUG,BUFFER__OVERFLOW("GUI_IN_STR_JSTARS_OP",  "CHOOSE JNPUTS"); 
en(4 
begin 

DS_GUI_m_STR_TARGET_EMnTER_OP.BUFFERWRITE(LV_GUI_IN_STR); 

exception 

when  BUFFER^OVERFLO  W  => 

DS_DEBUG.BUFFER__OVERFLOW("GUI_IN_STR_TARGET_EMnTER_OP",  "CHOOSE^INPUTS"); 
end; 
end  if, 

-  PSDL  Exception  handler. 

if  EXCEPnON_HAS_OCCURRED  then 
DS_DEBUG.UNHANDLED_EXCEPTION( 

"CHOOSE_INPUTS", 

PSDL_EXCEPTIONTMAGE(EXCEPTION_ID)); 
end  if, 

end  CHOOSE_INPUTS_DRIVER; 


procedure  GUI_INPUT_E  VENT^MONTTORDRIVER  is 


EXCEPnON_HAS_OCCURRED:  BOOLEAN  :=  FALSE; 
EXCEPnON__ID:  PSDL^EXCEPTION; 
begin 

-  Data  trigger  checks. 


-  Data  stream  reads. 


-  Execution  trigger  condition  check. 

if  True  then 
begin 

GUI^INPUT^EVENT^MONITOR; 
exception 
vdien  others  => 

DS_DEBUG.UNDECLARED_EXCEPTION("GUI_INPUT_EVENT_MONrrOR")' 
EXCEPTION_HAS_OCCURRED  :-tnie; 

EXCEPTION_ID  :=UNDECLARED_ADA_EXCEPTION; 
end; 

else  return; 
end  if, 

-  Exception  Constraint  translations. 

~  Other  constraint  option  translations. 

—Unconditional  ou^ut  translations. 

-  PSDL  Exception  handler. 

if  EXCEPTION_HAS_OCCURRED  then 
DS_DEBUG.UNHANDLED_EXCEPTION( 

"GUI_INPUT_^EVENT_MONITOR", 
PSDL_EXCEPTIOmMAGE(EXCEPTION_ID)); 
end  if, 

end  GUI_INPUT_EVENT_MONITOR_DRIVER; 
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procedure  CMDS_OUT_DRrVER  is 

LV__GUI_OUT_STR :  TARGET_DATA_PKG.TARGET__DATA; 


EXCEPnON_HAS_OCCURRED:  BOOLEAN FALSE; 

EXCEPTION JD:  PSDL^EXCEPTION; 
begin 

-  Data  trigger  checks. 

if  not  (DS_GUI^OUT_STR_CMDS_OUT.NEW_DATA)  then 
return; 
end  if, 

~  Data  stream  reads, 
begin 

DS__GUI_OUT_STR_CMDS_OUT.BtJFFER.READ(LV_GUI_OLIT_STR); 

exception 

wdien  BUFFER_UNDERFLO  W  => 

DS_DEBUG.BUFFER_mDERFLOW("GUI_OUT_.STR_CMDS_OUT",  ’’CMDS^OUT"); 
end; 

-  Execution  trigger  condition  check. 

if  True  then 
begin 

CMDS^OUT( 

GUI_OUT_STR  =>  LV_GUI__OUT_STR); 
exception 
v^en  others  => 

DS__DEBUG.UNDECLARED_EXCEPTION("CMDS  OUT"); 
EXCEPnON^HAS^OCCURRED  :=  true; 

EXCEPnON^ID  :=UNDECLARED_ADA_EXCEPTION; 
end; 

else  return; 
end  if, 

-  Exception  Constraint  translations. 

-  Other  constraint  option  translations. 

-Unconditional  ou^ut  translations. 

-  PSDL  Exception  handler. 

if  EXCEPTION__HAS_OCCURRED  then 
DS_DEBUG.UNHANDLED_EXCEPTION( 

"CMDS_OUT", 

PSDL_EXCEPTIOmMAGE(EXCEPTION_ID)); 
end  if, 

end  CMDS^OUT_DRIVER; 
end  ATACMS^DRTVERS; 

package  atacnis_DYNAMIC_SCHEDULERS  is 
procedure  START_DYNAMIC_SCHEDULE; 
end  atacms_DyNAMIC_SCHEDULERS; 


with  atacms_DRIVERS;  use  atacms_DRIVERS; 
withPRIORTTY  DEFINrnONS;  use  PRIORITY_DEFINmONS; 
package  body  atacnis_DYNAMIC_SCHEDULERS  is 

task  type  DYNAMIC_SCHEDULE_TYPE  is 
pragma  priority  (DYNAMIC_SCHEDULE_PRIORrrY); 
entry  START; 

end  DYNAMIC_SCHEDULE_TYPE; 

forDYNAMIC^SCHEDULE^TYPE'STORAGE^SIZEuse  100_000; 
DYNAMIC^SCHEDULE :  DYNAMIC_SCHEDULE_^TYPE; 

task  body  DYNAMIC_SCHEDULE^TYPE  is 
begin 

accept  START; 
loop 
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delay  5.0; 

cmds_out_DRrVER; 
end  loop; 

end  DYNAMIC^SCHEDTJLE^TYPE; 

procedure  START_^DYNAMIC_SCHEDULE  is 
begin 

DYNAMIC_^SCHEDULE.START; 
end  START_DYNAMIC_SCHEDULE; 

end  atacms^D  YNAMIC^SCHEDULERS; 


package  alacms_STATIC_SCHEDULERS  is 
procedure  START_STATIC_SCHEDULE; 
end  atacins_STATIC__SCHEDULERS; 

with  alacnQS_DRIVERS;  use  alacms__0RrVERS; 

withPRIORITY^DEFINmONS;  use  PRIORITY_DEFINmONS; 

withPSDL_TIMERS;  use  PSDL_TIMERS; 

withTEXTJO;  use  TEXT  JO; 

package  body  atacms_STATIC_SCHEDULERS  is 

task  type  STATIC^SCHEDULE^TYPE  is 
pragma  priority  (STATIC_SCHEDULE_PRIOiaTY); 
entry  START; 

end  STATIC_SCHEDULE_^TYPE; 

for  STATIC_SCHEDULE_TYPFSTORAGE_.SIZE  use  200 JOO; 
STATIC_SCHEDULE :  STATIC JCHEDULE_TYPE; 

task  body  STATIC_SCHEDULE_TYPE  is 
PERIOD :  duration; 

target_emitter_op_START_TIMEl :  duration; 
target_emitter_op_STOP_TIMEl :  duration; 
jstars_op_START_TIME2 :  duration; 
jstars__op_STOP_TIME2 :  duration; 
scdl_link_op_START_TIME3  :  duratioi^ 
scdl_link_op__STOP_TIME3  :  duration; 
gmd_stat_mod_op_START_TIME4 :  duration; 
gmd_statjmod__op_STOP_TIME4 :  duration; 
lanl_link_op_STARTjnME5  :  duration; 
lanl_link_op_STOP_TIME5  :  duration; 
asas_op_START_TIME6 :  duration; 
asas__<^_STOP__TIME6 :  duratioi^ 
choose_inputs_START_TIME7 :  duration; 
choose_inputs_STOP_TIME7 ;  duration; 
lan2_link_op_START_TIME8 :  duration; 
lan2_link_<^_STOP_TIME8 :  duration; 
ctoc_op_START_TIME9 :  duration; 
ctoc_0P_STOP_TIME9 :  duration; 
cnr_liiik_op_START_TIME10 :  duration; 
cnr__link_op_STOP_TIME10 :  duration; 
shooter_op_STARTjnMEll :  duration; 
shooter_op_STOP  TIMEII :  duration; 
gui_input_event_monitor_START_TIME12 ;  duration; 
gui_input_eventjnonitor_STOP_TIME12 :  duration; 
scdl_link_op_START_TIME13 :  duration; 
scdI_link_op_STOP_TIME13  :  duration; 
]anl_link_op_START_TIME14 :  duration; 
lanl  Jink_op_STOP_TIME14 :  duration; 
choose_inputs_START_TIME15 :  duration; 
choose_inputs_STOP_TIME15 :  duration; 
lan2Jink_op_START_TIMEI6 :  duration; 
lan2Jink_op_STOP_TIME16 :  duration; 
ctoc_op_START_TIME17 :  duration; 
ctoc_op_STOP_TIME17 :  duration; 
cnrJink_op_START_TIME18 :  duration; 
cnr_iink_op_STOP_TIME18 :  duration; 
shooter_op_START_TIME19 :  duration; 
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shooter_op_STOP_TIME19 :  duratioi^ 
scdI_lmk_op_START_TIME20 :  duration; 
scdl_link_op_STOP_TIME20 :  duration; 
grad_stat_mod_op_START_TIME21 :  duration; 
gmd_stal_mod_op_STOP_TIME21 :  duration; 
laul_link_op__START_TIME22 :  duration; 
lanl_link_op_STOP_TIME22 :  duration; 
asas_op_START_TIME23  :  duratioi^ 
asas_op_STOP_TIME23  :  duration; 
choose_iiiputs_START_TIME24 :  duration; 
choose_iiq)uts_STOP_TIME24 :  duration; 
lan2_link_op_START_TIME25  :  duration; 
laii2__link_op_STOP_TIME25 :  duration; 
ctoc_op_START_TIME26 :  duration; 
ctoc_op_STOP_TIME26 :  duration; 
cnr_link_op_START_TIME27 :  duration; 
cnr__link;_op_STOP_TIME27 :  duratioi^ 
shooter_op_START_TIME28 :  duration; 
shooter_op_STOP_TIME28 :  duration; 
gui_input_event_monitor_START_TIME29 :  duration; 
gui_iqput_event_monitor_STOP_TIME29  :  duration; 
scdl_link_op_STARTjnME30 :  duratiot^ 
scdl_link_op_STOP_TIME30 :  duration; 
lanl_link_op_START_TIME31 :  duration; 
lanl_link_op_STOP_TIME31 :  duration; 
choose_iiq)uts_START_TIME32 :  duration; 
choose_inputs_STOP_TIME32 :  duration; 
lan2_link_op_START_TIME33  :  duration; 
lan2_link_op_STOP_TIME33  :  duration; 
ctoc_op_START_TIME34 :  duration; 
ctoc__op_STOP_TIME34 :  duration; 
c»r_link_op  START_TIME35  :  duration; 
cnr_link._op_STOP_TIME35 :  duration; 
shootcr_op_START_TIME36 :  duration; 
shooter_op__STOP_TIME36 :  duration; 
jstars_op_START_TIME37 :  duration; 
jstars_op_STOP_TIME37 :  duration; 
scdl_link_op_START_TIME38 :  duration; 
scdl_link_op_STOP_TIME38 ;  duration; 
gmd_stat_niod_op_START_TIME39  :  duration; 
gmd_stat_mod_op__STOP_TIME39 :  duration; 
lanl_link_op_START_TIME40 :  duratioi^ 
lanl_link_op_STOP_TIME40 :  duration; 
asas_op_START_TIME41  :  duration; 
asas  op_STOP_TIME41 :  duration; 
choose_iiq)uts_STAJRT_TIME42 :  duration; 
choose_inputs_STOP_TIME42  :  duration; 
lan2_link_op_START_TIME43  :  duration; 
lan2_link_op_STOP_TIME43  :  duration; 
ctoc_op_START_TIME44 :  duration; 
ctoc_op_STOP_TIME44 ;  duration; 
cnr_link._op_START_TIME45  :  duration; 
cnr_link_op_STOP_TIME45 :  duration; 
shooter_pp_START_TIME46 :  duration; 
shooter_op_STOP_TIME46 :  duration; 
gui_input_event_monitor__START__TIME47 :  duration; 
gui_input_event_monitor_STOP_TIME47 :  duration; 
scdMink_op_START_TIME48 :  duration; 
scdI_Iink_op_STOP_TIME48 :  duration; 
Ianl_link_op_STAR.T_TIME49 :  duration; 
Ianl_link_op_STOP_TIME49 :  duration; 
choose_inputs_START_TIME50 :  duration; 
choose_inputs_STOP_TIME50 :  duration; 
lan2__link_op_START_TIME51 :  duration; 
lan2_link  op_STOP_TIME51 :  duration; 
ctoc_op_START_TIME52  :  duration; 
ctoc_op_STOP_TIME52  :  duration; 
cnr_link_op_START_TIME53  :  duration; 
cnrJink_op_STOP_TIME53  :  duration; 


shooter_op_START_TIME54 :  duration; 
shooter_op_STOP_TIME54 :  duration; 
scdl__link_op_START_TIME55 :  duration; 
scdI_link_op_STOP__TIME55  :  duration; 
gmd_stat_mod_op_START_TIME56 :  duration; 
grnd_stat_mod_qp_STOP_TIME56 :  duration; 
lanl_link_op_START__TIME57 :  duration; 
lanl  Jink_op_STOP_TIME57 :  duration; 
asas_op_START_TIME58 :  duration; 
asas_op_STOP_TIME58 :  duratioi^ 
choose_iiq)uts_START_TIME59 :  duration; 
choose_inputs_STOP_TIME59 :  duration; 
lan2_Jink_op_START_TIME60 :  duration; 

Ian2_link_op_STOP__TlME60 :  duration; 
ctoc_<^_START_TlME61 :  duration; 
ctoc_op_STOP_TIME61 :  duration; 
airJink_op_START_TIME62 :  duration; 
cnr_link_op_STOP_TIME62 :  duration; 
shooter_op_START_TIME63  :  duration; 
shooter_op_STOP_'nME63 :  duration; 
gui_iiq)ut_event_monitor_START_TIME64 :  duration; 
gui_input_event_monitor_STOP_TIME64 :  duration; 
scdl__link_op_START_TIME65 :  duration; 
scdl__link_op__STOP_TIME65  :  duration; 
lanl_iink_op_START_TIME66 :  duration; 
lanl_link._op_STOP_TIME66 :  duration; 
chooseinputs_START_TIME67 :  duration; 
dioose Jiq)uts_STOP_TIME67 :  duration; 
lan2_link_op_START_TIME68 :  duration; 
lan2_link_op_STOP_TIME68 :  duration; 
ctoc  op  START_TIME6i9 :  duration; 
ctoc_op_STOP_TIME69 :  duration; 
cnr_link_op_START_TIME70 :  duration; 
cnr_link_op_STOP_TIME70 :  duration; 
shooter_op_START_TIME71 :  duration; 
shooter_op_STOP_TIME71 :  duration; 
schedulejtimer :  TIMER  :=  NEW^TIMER; 
begin 

accept  START; 

PERIOD  ~  TARGET_TO_HOST(duration(  1.60000000000000E+01)); 
target_emitter__op_START_TIMEl  :=  TARGET_TO_HOST(duration(  O.OOOOOOOOOOOOOOE+00)); 
target_emitter_op_STOP_TIMEl  :=  TARGET_^TO_HOST(duratiQn(  5.00000000000000E-01)); 
jstars_op__START_TIME2  -  TARGET_TO_HOST(duration(  5.00000000000000E-01)); 
jstars__op_STOP_TIME2  :=  TARGET_TO__HOST(duration(  l.OOOOOOOOOOOOOOE+00)); 
scdl_link_op_START_TIME3  :=  TARGET_TO_HOST(duration(  l.OOOOOOOOOOOOOOE+OO)); 
scdl_link_op__STOP_TIME3  :=  TARGET_TO_HOST(duration(  L05000000000000E+00)); 
gmd__stat_mod_op__START_TIME4  :=  TARGET_TO_HOST(duration(  1.05000000000000E+00)); 
gmd_stat_mod_op_STOP_TIME4  :=  TARGET_TO__HOST(duration(  I.IOOOOOOOOOOOOOE+OO)); 
lanl_link_op_START_TIME5  :=  TARGET_,TO_H5sT(duration(  I.IOOOOOOOOOOOOOE+OO)); 
lanl_Unk_op_STOP_TIME5  TARGET_TO_HOST(duration(  1.15000000000000E+00)); 
asas_op_START_TIME6  :=  TARGET_.TO__HOST(duration(  L15000000000000E+00)); 
asas_op_STOP_TIME6  :=  TARGET_TO_HOST(duration(  L35000000000000E+00)); 
choose_ii5)uts_START_TIME7  :=  TARGET_TO_HOST(duralion(  1.35000000000000E+00)); 
choose_ii^uts_STOP_TIME7 TARGET__TO_HOST(duration(  1.55000000000000E+00)); 
lan2_link_op_START_TIME8  :=  TARGET_TO_HOST(duration(  1.55000000000000E-K)0)); 
lan2Jink_op_STOP_TIME8  :=  TARGET_TO_HOST(duration(  1.60000000000000E-K)0)); 
ctoc^op^START__TIME9 TARGET_TO_HOST(duration(  1.60000000000000E-K)0)); 
ctoc_op_STOP_TIME9  :=  TARGET_TO_HOST(duration(  1.65000000000000E+00)); 
cnr_link_op_START_TIME10  :=  TARGET_,TO_HOST(duiation(  1.65000000000000E+00)); 
cnr_link^op_^STOP_TrME10  :=  TARGET_TO_HOST(duration(  1.70000000000000E-H)0)); 
shooter_op_START_TIMEll  :=  TARGET_TO_HOST(duration(  1.70000000000000E-K)0)); 
shooter_op_STOP_TIMEll  :=  TARGET_TO_HOST(duration(  1.75000000000000E+00)); 
gui>put_event_monitor_START_TIME12  :=  TARGET_TO_HOST(duration(  1.75000000000000E+00)); 
gui_mput_event_monitor_STOP_TIME12  :=  TARGET_TO_HOST(duration(  1.95000000000000E-K)0)); 
scdl_link_op_START_TIME13  :=  TARGET_TO__HOST(duration(  3.00000000000000E+00)); 
scdl_iink_op_STOP_TIME13  :=  TARGET_TO_HOST(duration(3.05000000000000E+00)); 
lanl  Jink_op_START_TIME14  :=  TARGET_TO_HOST(duration(  3.10000000000000E+00)); 
IanlJink_op_STOP_TIME14  :=  TARGET_TO_HOST(duration(  3.15000000000000E+00)); 
choose_inputs_START_TIME15  :=  TARGET_TO_HOST(duration(  3.35000000000000E+00)); 
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chooseJiiputs_STOP_TIME15  :=  TARGET_TO_HOST(durati<Mi(  3.55000000000000E+00)); 
laji2_link_op_START_TIME16  :=  TARGET_TO_HOST(durati<»(  3.55000000000000E+00)); 
lan2_link_<^_STOP_TIME16  :=  TARGET_TO_HOST(duration(  3.60000000000000E+00)); 
etoc_op_START_TIME17  :=  TARGET_TO_HOST(duration(  3.60000000000000E+00)); 
ctoc_op_STOP_TIME17  :=  TARGET_TO_HOST(duration(  3.65000000000000E+00)); 
ciir_link_op_START_TIME18  :=  TARGET_TO_HOST(duralion(  3.65000000000000E+00)); 
ciir_link_op_STOP_TIME18  :=  TARGET_TO_HOST(duratiQii(  3.70000000000000E+00)); 
shcK>ter_<^_START_TIME19  :=  TARGET_TO_HOST(duration(  3.70000000000000E400)); 
shooter_op_STOP_TIME19  ;=  TARGET_TO_HOST(duration(  3.75000000000000E-K)0)); 
scdl_link_op_START_TIME20  :=  TARGET_TO_HOST(duration(  5.00000000000000E-H)0)); 
scdl_liiik_op_STOP_TIME20  :=  TARGET_TO_HOST(diiralion(  5.05000000000000E+00)); 
gmd_stat_mod_op_START_TIME21  ;=  TARGET_TO_HOST(duration(  5.05000000000000E+00)); 
gmd_stat_mod_op_STOP_TIME21  ;=  TARGET_TO_HOST(duraticm(  5.10000000000000E+00)); 
laal_link_op_START_TIME22  :=  TARGET_TO_HOST(durati<m(  5.10000000000000E+00)); 
lanl_link_op_STOP_TIME22  :=  TARGET_TO_HOST(duratioii(  5.15000000000000E-H)0)); 
asas_op_START_TIME23  :=  TARGET_TO_HOST(dutation(  5.13000000000000E+00)); 
asas_op_STOP_TlME23  ;=  TARGET_TO_HOST(durati<>n(  5.35000000000000E-K)0)); 
choose_ii5>uts_START_TIME24  ;=  TARGET_TO_HOST(duration(  5.35000000000000E-K)0)); 
choose_ii5)uts_STOP_TIME24  :=  TARGET_TO_HOST(duration(  5.55000000000000E+00)); 
laii2Jink_q)_START_TIME25  :=  TARGET_TO_HOST(duration(  5.55000000000000E+00)); 
laii2_liiik_op_STOP_TIME25  :=  TARGET_TO_HOST(duratioii(  5.60000000000000E+00)); 
ctoc_op_START_TIME26  :=  TARGET_TO_HOST(duration(  5.60000000000000E+00)); 
ctoc_op_STOP_miE26  :=TARGET_TO_HOST(duration(  5.65000000000000E-K)0)X 
cnr_liiik_op_START_TIME27  :=  TARGET_TO_HOST(duration(  5.65000000000000E400)); 
enr_link_op_STOP_TIME27  :=  TARGET_TO_HOST(duration(  5.70000000000000E+00)); 
shooter_op_START_TBlE28  :=  TARGET_TO_HOST(duratiQn(  5.70000000000000E+00)); 
shooter_op_STOP_TIME28  :=  TARGET_TO_HOST(duratiQn(  5.75000000000000E+00)); 
gui_input_eventjmonitor_START_TIME29  :=  TARGET_TO_HOST(duration(  5.75000000000000E+00)); 
gui_input_event_monitor_STOP_TlME29  :=  TARGET_TO_HOST(duration(  5.95000000000000E-K)0)); 
scdl_link_op_START_TIME30  :=  TARGET_TO_HOST(duraticm(  7.00000000000000E+00)); 
scdlJink_op_STOP_TIME30  ;=  TARGET_TO_HOST(duration(  7.05000000000000E+00)); 
laal_liiik_op_START_TIME31  :=  TARGET_TO_HOST(duration(  7.10000000000000E+00)); 
laal_link_op_STOP_'nME31  :=  TARGET_TO_HOST(duration(  7.15000000000000E+00)); 
choose_iiiputs_START_TIME32  :=  TARGET_TO_HOST(duration(  7.35000000000000E+00)); 
choose_iiq)uts_STOP_TIME32  :=  TARGET_TO_HOST(duration(  7.55000000000000E+00)); 
lan2Jink_op_START_TIME33  :=  TARGET_TO_HOST(duration(  7.55000000000000E+00)); 
laa2_link_op_STOP_TIME33  :=  TARGET_TO_HOST(duration(  7.60000000000000E+00)); 
ctoc_op_START_TIME34  :=  TARGET_TO_HOST(duration(  7.60000000000000E+00)); 
ctoc_op_STOP_TIME34  ~  TARGET_fO_HOST(duration(  7.65000000000000E+00)); 
cnr_liiik_op_START_TIME35  ;=  TARGET_TO_HOST(duration(  7.65000000000000E+00)); 
cnr_link_op_STOP_TIME35  :=  TARGET_TO_HOST(diiration(  7.70000000000000E+00)); 
shooter_op_START_TIME36  :=  TARGET_TO_HOST(duration(  7.70000000000000E+00)); 
shooter_op_STOP_TIME36  :=  TARGET_TO_HOST(duration(  7.75000000000000E+00)); 
jstars_op_START_TIME37  :=  TARGET_TO_HOST(duration(  8.50000000000000E+00)); 
jstais_op_STOP_'nME37  :=  TARGET_TO_HOST(duraaon(  9.00000000000000E-H)0)); 
scdl_liiik_op_START_TIME38  :=  TARGET_TO_HOST(duration(  9.00000000000000E+00)); 
scdlJmk_op_STOP_TIME38  :=  TARGET_TO_HOST(duration(9.05000000000000E400)); 
gtnd_stat_inod_op_START_TIME39  :=  TARGET_TO_HOST(diiration(  9.05000000000000E+00)); 
gmd_stat_mod_op_STOP_TIME39  :=  TARGET_TO_HOST(duration(  9.10000000000000E+00)); 
lanl_link_op_START_TIME40  :=  TARGET_TO_HOST(duration(  9.10000000000000E+00)); 
lanl_Iiiik_op_STOP_TIME40  :=  TARGET_TO_HOST(duration(  9.15000000000000E+00)); 
asas_op_START_TIME41  :=  TARGET_TO_HOST(durati<Mi(  9.15000000000000E+00)); 
asas_op_STOP_TIME41  ;=  TARGET_TO_HOST(duration(  9.35000000000000E+00)); 
choose_iiq>uts_START_TIME42  :=  TARGET_TO_HOST(durati<Mi(  9.35000000000000E+00)); 
choose_iiiputs_STOP_TIME42  :=  TARGET_TO_HOST(du(ation(  9.55000000000000E-K)0)); 
Ian2_link;_op_START_TIME43  :=  TARGET_TO_HOST(duration(  9.55000000000000E+00)); 
lan2_link_op_STOP_TIME43  :=  TARGET_TO_HOST(duration(  9.60000000000000E+00)); 
ctoc_op_START  TIME44  :=  TARGET_TO_H6sT(dutation(  9.60000000000000E-fOO)); 
ctoc_op_STOP_TIME44  :=  TARGET_TO_HOST(duration(  9.65000000000000E+00)); 
cnr_liiik_op_START_TIME45  ;=  TARGET_TO_HOST(duration(  9.65000000000000E+00)); 
cnr_Iiiik_op_STOP_'nME45  :=  TARGET_TO_HOST(dui:ation(9.70000000000000E+00)); 
shooter_op_START_TIME46  ;=  TARGET_TO_HOST(duration(  9.70000000000000E+OoS; 
shooter_op_STOP_TIME46  :=  TARGET_TO_HOST(duration(  9.75000000000000E+00)); 
gui_iiiput_event_nionitor_START_TIME47  :=  TARGET_TO_HOST(duration(  9.75000000000000E+00)); 
gui_input_event_momtor_STOP_TIME47  :=  TARGET_TO_HOST(duration(  9.95000000000000E+00)); 
scdl_lii]k_op_START jnME48  :=  TARGET_TO_HOST(duration(  I.lOOOOOOOOOOOOOE+01)); 
scdl_link_op_STOP_TIME48  :=  TARGET_TO_HOST(duration(  1.10500000000000E+01)); 
lanlJiiik_op_START_TIME49  :=  TARGET_TO_HOST(duration(  l.llOOOOOOOOOOOOE+Ol)); 
Ianl_Iink_op_STOP_TIME49  :=  TARGET_TO_HOST(duration(  1.11500000000000E+01)); 
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choose_iiq)iits_START_TIME50  :=  TARGET_TO__HOST(duration(  1.13500000000000E-K)1)); 
choose_iiq)uts_STOP_TIME50  :=  TARGET_TO__HOST(duration(  1.15500000000000E+01)); 
laii2_lmk_op_START_TIME51  :=  TARGET_TO_HOST(diiration(  1.15500000000000E-K)1)); 
lan2_lmk__op__STOP_TIME51  TARGET_TO_HOST(duration(  1.16000000000000E+01)); 
cto«J_op_START_TIME52  :=  TARGET_TO_HOST(duratic)n(  1.16000000000000E-K)1)); 
ctoc_op_STOP_TIME52  TARGET_TO_HOST(duratioii(  1.16500000000000E+01)); 
cnr_link_op_START_TIME53  TARGET__TO_HOST(duratiQn(  1.16500000000000E+01)); 
ciir_lmk_op_STOP_TIME53  TARGET_TO_^HOST(diii:alion(  1.17000000000000E-K)1)); 
shooter_op_START_TIME54  :=  TARGET_TO_HOST(duratiQn(  1.17000000000000E-K)1)); 
shooter_^op_STOP_TIME54  :=  TARGET_TO_HOST(duration(  1.17500000000000E-K)1)); 
scdl__link_op_^START_TIME55  TARGET_TO__HOST(duratiQn(  1.30000000000000E401)); 
scdl_lmk_op__STOP_TIME55  :=  TARGET_TO_HOST(dui:atiQn(  1.30500000000000E-K)1)); 
gnKi_stat_mod_op_START__TIME56  :=  TARGET_TO_HOST(<iui:ation(  1.30500000000000E+01)); 
gmd__stat_mod_op_STOP_miE56  :=  TARGET__TO_HOST(duration(  1.31000000000000E-H)1)); 
Ianl_link__op_START_.TIME57  :=  TARGET__TO_HOST(duration(  1.31000000000000E-K)1)); 

Ianl_link_op_STOP_TIME57  :=  TARGET_TO__HOST(duratiQn(  1.31500000000000E-K)1)); 
asas_op_START__TIME58  :=  TARGET_TO_HOST(duralion(  1.31500000000000E-H)1)); 
asas_op_STOP_,TIME58  :=  TARGET__TO_^HOST(duratiQn(  1.33500000000000E-K)1)); 
choose_iiq)uts_START_^TIME59 TARGET_TO_HOST(duralion(  1.33500000000000E+01)); 
dioose_mputs_STOP_TIME59 TARGET_TO_HOST(duration(  1.35500000000000E+01)); 
lan2_link__op_START_TIME60  :=  TARGET_TO_HOST(diiration(  1.35500000000000E-K)1)); 
laii2  Jink_op_STOP_TIME60  TARGET_TO_HOST(duraticm(  1.36000000000000E+01)); 
ctoc_op^START_TIME61  :=  TARGET_TO__HOST(duration(  1.36000000000000E-K)1)); 
ctoc_opJ.TOPjmJ[E6l  :=TARGET__TO_HOST(durati(m(  1.36500000000000E-K)1)); 
cnr_link_op_START_TIME62  :=  TARGET__TO_HOST(duratiQn(  1.36500000000000E+01)); 
cnr_link_op_STOP_TIME62  :=  TARGET__TO_HOST(duration(  1.37000000000000E+01)); 
shooter_op_START_TIME63  :=  TARGET_TO_HOST(dui:ation(  1.37000000000000E-K)l)i 
shooter_op_STOP_TIME63  TARGET_TO_HOST(duration(  1.37500000000000E+01)); 
gui_input_event_momtor_START_TIMK  :=  TARGET_TO_HOST(diirati<m(  1.37500000000000E+01)); 
gui__iiq)ut_event__momtor_STOP_TIME64  :=  TARGET__TO__HOST(duration(  1.39500000000000E*H)1));  ’ 
scdl_^Iink_op__START_TIME65  :=  TARGET_TO_HOST(dufation(  1.50000000000000E+01)); 
scdl_liiik_op_STOP_TIME65  :=  TARGET_TO_HOST(duration(  1.50500000000000E+01)); 
lanl_liiik_op_START_TIME66  :=  TARGET_TO_HOST(duraticm(  1.51000000000000E+01)); 
lanl__liiik_op_STOP_TIME66  :=  TARGET__TO_HOST(duratiQn(  1.51500000000000E-K)1)); 
choc«e_mpiits_START_TIME67  :=  TARGET_TO_HOST(duration(  1.53500000000000E+01)); 
choose_ii^uts_STOP_TIME67  TARGET_TO_HOST(durati(m(  1.55500000000000E+01)); 
laii2_lmk_op_START_TIME68  :=  TARGET_TO_HOST(duration(  1.55500000000000E-K)1)); 
laii2_^link_<>p_STOP_.TIME68  :=  TARGET_TO_HOST(duration(  1.56000000000000E+01)); 
c^_op_START_TIME69  :=  TARGET_TO_HOST(duraticm(  1.56000000000000E+01)); 
ctoc_op_STOP_TIME69  :=  TARGET_TO__HOST(duration(  1.56500000000000E+01)); 
cnr_liidc_op_START_TIME70  :=  TARGET_TO_HOST(duration(  1.56500000000000E+01)); 
cnr_lmk_op_STOP_TIME70  :=  TARGET_TO_HOST(duration(  L57000000000000E+01)); 
shooter_op_START_TIME71  TARGET_TO_HOST(duration(  1.57000000000000E-K)1)); 
shooter_op_STOP_^TIME71  :=  TARGET_TO_.HOST(duration(  1.57500000000000E+01)); 

START(scheduletimer); 

loop 

dela><target_emitter_,op_START_TIMEl  -  HOST_DURATION(schedule_timer)); 
target_emitter_op_DRIVER; 

if  HOST_DURATION(schedule_timer)  >target_emitter_op_STOP_.TIMEl  then 
PUT_LINE(”timmg  error  from  operator  target  emitter  op"); 

SUBTRACT_HOST^TIME^FROM_,ALL^TIMERS(HOST_DtmATION(schedule_timer)  -  target_emitter_op_STOP  TIMEl); 
end  if,  ~ 

delay(jstaES_op_START_TIME2  -  HOST_DURATION(scheduIe_timer)); 
jstars_op_DRIVER; 

if  HOST_DURATION(schedule_timer)  >  jstars_op_STOP_TIME2  then 
PUT_LINE(’timing  error  from  operator  jstars  op"); 

SUBTRACT_HOST_TIME_FROM_ALL_TIMERS(HOST_DURATION(schedule_timer)  -  jstars__op_STOP_TIME2); 
end  if; 

delay(scdl_link_op_START__TIME3  -  HOST_DURATION(schedule_timer)); 
scdl_link:_op_DRIVER; 

if  HOST_DURATION(scheduleJimer)  >  scdl_link_op_STOP_TIME3  then 
PUTLINEftiming  error  from  operator  scdi_iiiik_op"); 

SUBTRACT_HOST_TIME_FROM_ALL_TIMERS(HOST_DURATION(schedule_timer)  -  scdl_link._op_STOP  TIMES); 

end  if,  “ 
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delay(gmd__stat_mod_op_START_TIME4  -  HOST_DURATION(schedule_timer)); 
gmdstatmod^opDRTVER; 

if  HOST_DURA’nON(schedule_timer)  >  grad_statjtnod_op_STOP_TIME4  then 
PUT_LINE(’‘tmiing  error  from  operator  gmd_stat_mod_op”); 

SUBTRACT_HOST__TIl^^FROM^ALL_TIMERS(HOST_DURATION(scheduleJimer)  -  gmd^stal^mod^op^STOP_.TIME4); 
endii^ 

delay(lanl_link:_op_START_TIME5  -  HOST_DURATION(scheduleJimer)); 
lanl_liiik__op_I)RIVER; 

if  HOST_DURATION(scheduIetimer)  >  lanl_liiik_op_STOP_TIME5  then 
PUT_LINE(’'timing  error  from  operator  lanl_link_op"); 

SUBTRACT__HOST_TIME_FROM^ALL_TIMERS(HOST_,DURATION(scheduleJimer)  -  lanl_link^op^STOP^TIME5); 
end  if; 

delay(asas_op_START_TIME6  -  HOST_DURAT[ON(scheduIe Jimer)); 
asas__opjSRIVER; 

if  HOST__DURATION(schedule_timer)  >  asas_op_STOP_TIME6  then 
PUT_LINE("timing  error  from  operator  asas__op"); 

SUBTRACT^HOST_TIME^FROM_.ALL_TIMERS(HOST^DURATION(scheduIe Jimer)  -  asas_op_,STOP_TIME6); 
endi^ 

deIay(choose_ii^uts_START_TIME7  -  HOST_DXJRATION(schedule__timer)); 
choose_inputs_DRrVER; 

if  HOST_DURATION(schedule_timer)  >  choose_ii]puts_STOP_TIME7  then 
PUT_LINE('*timing  error  from  operator  choose  inputs"); 

SUBTRACT^HOST__TIME^FROM_.ALL_TIMERS(HOST_DURATION(schedule Jimer)  -  choose_iiq)uts^STOP_TIME7); 
end  if, 

delay(Ian2_liiik_op_START_TIME^  -  HOST_DURATION(schedule_timer)); 
lan2_link_op_DRIVER; 

if  HOST_DX;RATION(scheduIe_timer)  >  lan2_link_op_STOP_TIME8  then 
PUT_LINE("timing  error  from  operator  lan2_link_op"); 

SUBTRACT_HOST_TIME_FROM_ALL„TIMERS(HOST_DURATION(schedule_timer)  -  lan2_link_op_STOP_TIME8); 

end  if, 

delay(ctoc_op_STAR.T_TIME9  -  HOST_DURATION(schedule_timer)); 
ctocopDRTVER; 

if  HOST_DURATION(schedule_timer)  >  ctoc_op_STOP_TIME9  then 
PUT__LINE("timmg  error  from  operator  ctoc_op"); 

SUBTRACT_HOST_TIME__FROM_ALL_TIMERS(HOST_^DURATION(schedule_timer)  -  ctoc_op^STOP__TIME9); 
end  if; 

delay(cnr_link_op_START_TIME10  -  HOST_DlJRATION(scheduleJimer)); 
cnr_liiik_op_DRIVER; 

if  HOST_DURATION(schedule_timer)  >  cnr__link_op__STOP_TIME10  then 
PUT_LINE("timing  error  from  operator  cnr_link_op”); 

SlJBTRACT_HOST_TIME_.FROM_,ALL^TIMERS(HOST^DlJRATION(scheduleJ^  -  ciir_link_op_STOP_TIME10); 
end  if, 

deIay(shooter_op_START_TIMEll  -  HOST_DURATION(scheduleJimer)); 
shooter_op_DRrVER; 

ifHOST_^DURATION(scheduleJimer)  >  shooter_op_STOP_TIMEn  then 
PUT_IjjJE("timing  error  from  operator  shooter_op"); 

SUBTRACT_HOST^TIME_,FROM^ALL_TIMERS(HOST^DUIU.TION(schedule_timer)  -  shooter^op_STOP_TIMEll); 
end  if 

delay(gui_inpirt_eventjmonitor_START_TIME12  -  HOST_DURATION(scheduIe_timer)); 
gui_input_event_monitor_DRIVER; 

if  HOST_DURATION(schedule_timer)  >  gui_mput_event__monitor_STOP_TIME12  then 
PUT_LINE(’*timing  error  fixwn  operator  gui_inpiit_event_monitor"); 
SUBTRACT^HOST_TIME^FROM_ALL_TIMERS(HOST_.DURATION(scheduleJimer)- 
gui_ii^)Ut_event_monitor_STOP_TIME12); 
end  if; 
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delay(scdl_liiilc_op_START_TIME13  -  HOST_DURATION(schedule_tinier)); 
scdl_link._op_DRIVER; 

if  HOST_DURATION(schedule_timer)  >  scdl_link_op_,STOP_TIME13  then 
Ptnr__LINE("timing  error  from  operator  scdl_link_op"); 

SUBTRACT_HOST_TIME_FROM_ALL_TIMERS(HOST_^DURATION(sche(luIe_timer)  -  scdl__link_op_STOP  miEU); 

end  if, 

delayOanl^liric_,op_START__TI\ffi  -  HOST_DURATION(schedule_timer)); 
lanllinkc^DRIVER; 

if  HOST_DURATION(scheduleJimer)  >  lanl_link_op_STOP_TIME14then 
PlJT_LINE('*tirmng  eiror  from  operator  lanl_iink_op"); 

SUBTRACTJHOST_TIME_FROM_ALL_TIMERS(HOST_DlJRATION(schedule_timer)-  Ianl_link_op_STOP  TIME14); 

end  if; 

delay(choose_iiq)uts_START_TIME15  -  HOST_DUPATION(scheduleJimer)); 
choose_ii^ixts_DRIVE^ 

if  HOST_DURATION(schedulc_timer)  >  choose_iiq)uts_STOP_TIME15  then 
POT_LINE(’*timing  error  from  operator  choose  iiqjuts"); 

SUBTRACT_HOST_TIME_FROM_ALL_TIMERS(HOST_DURATION(schedule_timer)  -  choose_iiq)uts_STOP  TIME15); 
endif, 

delay(lan2_^link_op_START_TIME16  -  HOST_DX;RATION(scheduleJimer)); 
lan2_link_op_DRIVER; 

if  HOST_DURATION(scheduIe_timer)  >  lan2_link_op_STOP_TIME16then 
PUT_LINE("timing  error  from  operator  lan2_link_op"); 

SUBTRACT_HOST_TIME_FROM__ALL_TIMERS(HOST_DURATION(schedule_timer) - lan2_link_op  STOP  TIME16); 
end  if, 

deIay(ctoc_op_START_TIME17  -  HOST_DURATION(schedule_timer)); 
ctoc_<^_DRIVER; 

if  HOST_DURATION(schedule_timer)  >  ctoc_op_STOP_TIME17then 
PUT_LINE(”timing  enor  from  operator  ctoc  op”); 

SlJBTRACT^HOST^TIME^FROM_ALL_TIMERS(HOST_DURATION(scheduIe^timer)  -  ctoc^op^STOP_TIME17); 
end  if, 

delay(cnr_linIe_op_START_TIME18  -  HOST_DURATION(schedule_timer)); 
cnr_liiiIc_op_DRIVER; 

if  HOST_DURATION(schedule_timer)  >  cnr_link_op_STOP__TIME18  then 
PUT_LINE("timing  error  from  operator  cnr_link_op"); 

SUBTRACT_HOST_TIME_FROM_ALL^TIMERS(HOST_DURATION(scheduleJimer)  -  cnrJink_op^STOP^TIME18); 
end  if, 

deIay(shooter_op_START_TIME19  -  HOST_DXJRATION(scheduleJimer)); 
shooter__op_DRiVER; 

if  HOST_DURATION(schedule_timer)  >  shooter_op_STOP_TIME19  then 
PUT_LINE(’*timing  error  from  operator  shooter_op"); 

SUBTRACT__HOST_TIME_FROM_ALL_TIMERS(HOST_DURATION(schedule_timer)  -  shooter__op_STOP  TIME19); 
endif, 

delay(scdl_link_op__START_^TIME20  •  HOST_DURATION(schedule Jimer)); 
scdl_link_op_DRIVER; 

if  HOST_DURATION(schedule_timer)  >  scdl_link_op_STOP_TIME20  then 
PUTLINEftiming  error  from  operator  scdllinkop"); 

SUBTRACT_HOST_TIME_FROM_ALL_TIMERS^OST_DURATION(schedule_timer)  -  scdl_link_op_STOP  TIME20); 

endif, 

deIay(gmd_stat_mod_op_START_,TIME21  -  HOST_DURATION(scheduIe_timer)); 
gmd_stat_mod_op_DRIVER; 

if  HOST_DURATION(scheduleJimer)  >  gmd_stat_mod_op_STOP_TIME21  then 
PUT__LINE('*tiniing  error  from  operator  gmd_stat_mod_op"); 

SUBTRACT_HOST_TIME_FROM_ALL_TIMERS(HOST_DlIRATION(schedule_timer)  -gmd_stat_mod_op  STOP  TIME21); 

endif, 

delay(lanl_link_op_,START_TIME22  -  HOST_DURATION(schedule_timer)); 

Ian  1  Jinkop^DRIVER; 

if  HOST_DlJRATION(schedule_timer)  >  lanl_link_op_STOP_TIME22  then 
PUT_LINE(’*timing  error  from  operator  lanl_link_op”); 

SUBTRACT_HOST_TIME_FROM_ALL_TIMERS(HOST_DlJRATION(scheduIe_timer)  -  lanlJmk_op  STOP  TIME22)- 
end  if,  -  _ 
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delay(asas_op_START_TIME23  -  HOST_DURATION(schedule_timer)); 
asas_op_DRIVER; 

if  HOST_DURA'nON(schedule_timer)  >  asasop_STOP_TIME23  then 
PUT_LINE('‘timing  error  from  operator  asas__op"); 

SUBTRACT_.HOST_TIME_FROM__ALL_TIMERS(HOST_DURATION(schedule Jimer)  -  asas__op__STOP_TIME23); 
end  if, 

delay(choose__mpiits_START__TIME24  -  HOST__DURATION(schedule Jimer)); 
chooseJi5)uts_DREVER; 

if  HOST_DURATION(schedule_timer)  >  choose_mputs_STOP_TIME24  then 
PUT_LINE("timing  error  from  operator  choose_inputs”); 

SUBTRACT^HOST_TIME^FROM_ALL_TIMERS(HOST_DURATION(schedule Jimer)  -  choose__ii^uts^STOP^TIME24); 
end  if, 

delay0an2_liiik_op_START_TIME25  -  HOST_DURATION(schedule_timer)); 
lan2_lmkop_DRrVER; 

if  HOST_DURATION(scheduletimer)  >  Ian2_link_op_STOP_TIME25  then 
PUT_LINE(’tiining  error  from  operator  lan2_link;_op"); 

SUBTRACT_HOST^TIME_FROM_ALL_TIMERS(HOST_.DlJR4TION(schedule Jm  -  lan2_link_op_STOP_TIME25); 
end  if, 

delay(ctoc_op_START_TIME26  -  HOST_DURATION(scheduIeJimer)); 
ctoc__op_DRIVER; 

if  HOST_DURATION(schedule_timer)  >  ctoc_op_STOP_TIME26  then 
PUT_LINE(**timing  error  from  operator  ctoc_op"); 

STOraACT_HOST_TIME_FROM__ALL_TIMERS(HOST_DURATION(scheduIeJimer)  -  ctoc_op^STOP^miE26); 
end  if, 

delay(cnr_link_op_START_TIME27  -  HOST_DtIRATION(schedule_timer)); 
cnrJink_op_DRIVER; 

if  HOST_DURATION(scheduIe_timer)  >  ciir_hnk_opSTOPjnME27  then 
PUr_LINE("timing  error  from  operator  cnr_link_op"); 

SUBTRACT_HOST__TIME_FROM_ALL_TIMERS(HOST^DURATION(scheduleJimer)  .  cnr_link^op_STOP_^TIME27); 
end  if, 

deIay(shooter_op_START_TIME28  -  HOST_DURATION(scheduleJimer)); 
shooter_op_DRIVER; 

if  HOST_DXJRATION(schedule_timer)  >  shooter_op_STOP_TIME28  then 
PUT_LINE('*timmg  error  from  operator  shooter_op"); 

SUBTRACT_HOST_TIME_FROM_ALL__.TIMERS(HOST_DlJRATION(schedule_timer)  -  shooter_op__STOP_TIME28); 
endi^ 

delay(gui_iiq)ut_event_monitor_START_TIME29  -  HOST__DURATION(schedule_timer)); 
gui_input_event_mQnitor_DRIVER; 

if  HOST_DURA.TION(scheduletimer)  >  gui_input_event_monitor_STOP_TIME29  then 
PUT_LINE(*‘timing  error  from  operator  gui_ii^ut_event_monitor’'); 
SUBTRACT_HOST^TIME_FROM_ALL_TIMERS(HOST^DURATION(scheduIeJimer)  - 
gui_input_event_monitor_STOP_TIME29); 
end  if, 

deIay(scdl_link_op_START_TIME30  -  HOST_DURATION(scheduleJimer)); 
scdl_link_op_DRIVER; 

if  HOST_DXJRATION(scheduIe_timer)  >  scdl_lmk:_op_STOP_TIME30  then 
PUT_LINE('*timmg  error  from  operator  scdI__link_op"); 

SUBTRACT_HOST_TIME_.I^OM^ALL_TIMERS(HOST_DURATION(schedule_timer)  -  scdl_iink_op_STOP_TIME30); 
end  if, 

delay(Ianl_link_op_START_TIME31  -  HOST_DURATION(schedule_timer)); 

Ian  l_lmk_op_DRrVER; 

if  HOST_DURATION(scheduIe_timer)  >  Ianl_link_op_STOP_TIME31  then 
PUT_LINE(’‘timing  error  from  operator  lanl_link_op"); 

SUBTRACT_HOST_TIME_FROM_ALL_TIMERS(HOST_DURATION(schedule_timer)  -  lanl  Jiiik_op_STOP_TIME31); 
end  if, 

delay(choose_inputs_START_TIME32  -  HOST_DURATION(schedule_timer)); 
choose_mputs_DRIVER; 

if  HOST_DURATION(schedule_timer)  >  choose_inputs_STOP_TIME32  then 
PUT_LINE("timing  error  from  operator  choose__inputs"); 
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SlJBTRACT_HOST_TIME_FROM_ALL_TIMERS(HOST_DURATION(schedule_timer)  -  choose_ii^uts_STOP_TIME32); 
endi^ 

delay(lan2Jmk_op_START_TIME33  -  HOST_DURATION(schedule__timer)); 
laii2__link_op__DRIVER; 

if  HOST_DURATION(schedule_t!mer)  >  Iaii2_link_q)_STOP_TIME33  then 
PUT_LINE("timmg  error  from  operator  Iaii2_link_op"); 

SUBTRACT_HOST_TIME_FROM_ALL_TIMERS(HOST_DURATION(schedule_timer)  -  lan2_Iink._op_STOP  TIME33); 
end  if,  “ 

delay(ctoc^op_START^TIME34  -  HOST_DURATION(schedule_timer)); 
ctoc_op_DRIVER; 

if  HOST_DURATION(schedule_timer)  >  ctoc__op_STOP__TIME34  then 
PUT_LINE(''timmg  error  from  operator  ctoc  op"); 

SUBTRACT_.HOST_TIME_FROM_ALL_TIMERS(HOST^DURATION(schedule_timer)  -  ctoc^op^STOP_TIME34); 
end  if, 

delay(cnr_^link:_op_START_TIME35  -  HOST_DURATION(scheduleJimer)); 
cnrlink^opDRTVER; 

if  HOST_DURATION(schedule_timer)  >  cnr_link_op_STOP_TIME35  then 
PUT_LINE("timing  error  from  operator  cnr_link_op”); 

SUBTRACT_HOST_TIME_FROM_ALL_TIMERS(HOST_DURATION(schedule_timer)  -  cnr_link_op_STOP  TIMES  5); 
endi^ 

delay(shooter_op_START_TIME36  -  HOST_DUIlATION(scheduleJimer)); 
shooteropDRIVEI^ 

if  HOST_DURATION(scheduIe_timer)  >  shooter__op_STOP_TIME36  then 
PUT_LINE("timing  error  from  operator  shooter  op"); 

SUBTRACT_HOST__TIMEJFROM_ALL_TIMERS(HOST_DURATION(schedule_timer)  -  shooter_op_STOP_TIME36); 
end  if, 

delay(jstars_op_^START_TIME37  .  HOST^DURATION(schedule_timer)); 
jstars_op_DRIVER; 

if  HOST_DURATION(scheduleJimer)  >  jstars_op_STOP_TIME37  then 
PUT_LINE(**timing  error  from  operator  jstars_<^"); 

SUBTRACT_HOST_TIME^FROM_^ALL_TIMERS(HOST_DURATION(scheduleJimer).jstare_op_STOP_TIME37); 

end  if, 

delay(scdl_^link_op_START_TIME38  -  HOST_DUR4TION(schedule Jimer)); 
scdlJmk^opDRTVER; 

if  HOST_DURATION(schedule_timer)  >  scdI_link__op_STOP_TIME38  then 
PUT_LINE('‘timing  error  from  operator  scdl__liiik_op*'); 

SUBTRACT_HOST_TIME_FROM_ALL_TIMERS(HOST_DURATION(scheduleJimer)  -  scdI_link_op_STOP_TIME38); 

end  if, 

delay(gmd_stal_mod_op_START_TIME39  -  HOST_DXJRATION(schedule_timer)); 
gmd_stat_modop_DRIVER; 

if  HOST_DURATION(schedule_timer)  >  grad_stat_mod_op_STOP_TIME39  then 
PUT_LINE('‘timing  error  from  operator  gmd_stat_mod__op"); 
SUBTRACT_HOST_TIME_FROM_ALL__TIMERS(HOST_DURATION(scheduIe_timer)  - 
gmd_stat_mod_op_STOP_TIME39); 
endi^ 

delay(lanl_link_op__START_TIME40  -  HOST_^DURATION(scheduleJimer)); 

Ianl_iink_op_DRIVEI^ 

if  HOST_^DURATION(scheduleJimer)  >  lanl  Jink_op_STOP_TIME40  then 
PUT_LINE("timing  error  from  operator  lanl  link_op"); 

SUBTRACT_HOST_TIME_FROM_ALL_TIMERS(HOST_DURATION(schedule_timer)  -  lanl_lmk_op  STOP  TIME40); 
end  if;  _  -  > 

delay(asas_op_START^TIME41  -  HOST_^DURATION(schedule_timer)); 
asas_op_DRIVER; 

if  HOST_DURATION(schedule_timer)  >  asas_op_STOP_TIME41  then 
PUT_LINE(”timing  error  from  operator  asas_op"); 

SUBTRACT__HOST_TIME_mOM^ALL_TIMERS(HOST_DlJRATION(schedule^timer)  -  asas_op_^STOP  TIME41); 

end  if;  _  » 
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delay(choose_inputs_START_TIME42  -  H0ST_DURAT10N(schedule_timer)); 
chooseinputsDRTVER; 

if  HOST_DURATION(schedule_tmier)  >  choose_iiq)uts_STOP_TIME42  then 
PUT_LINE('’timmg  error  fix>m  operator  choose^inputs"); 

SUBTRACT_HOST_TIME_FROM__ALL_TIMERS(HOST^DURATION(scheduleJimer)  -  choose_inputs__STOP_TIME42); 
end  if, 

delayaan2_link__op^START__TIME43  -  HOST_DURATION(schedule Jimer)); 
lan2_link_op_DRIVER; 

if  HOST_DURATION(schedule^fimer)  >  lan2_^link_^op_STOP_miE43  then 
PUT_LINE(”timing  error  fixmi  operator  lan2 Jink_op"); 

SUBTRACT_^HOST_TIME__FROM_ALL_TIMERS(HOST^DURATION(scheduleJimer)  -  lan2_link_op_STOP_TIME43); 
end  if, 

delay(ctoc_op_START_TIME44  -  HOST_DURATION(schedule^timer)); 
ctoc_op_DRrVE^ 

if  HOST_DURATION(scheduIe_timer)  >  ctoc_op_STOP_TIME44  then 
PUT_LINE("timmg  error  from  operator  ctoc_op"); 

SUBTRACT_HOST_^TIME_FROM_ALL_TIMERS(HOST_.DURATION(schedule Jimer)  -  ctoc__op_STOP_TIME44); 
endi^ 

delay(cnr_link_op_START^TIME45  -  HOST_DURATION(schedule Jimer)^ 
cnr  link_op_DRrVER; 

if  HOST_DURATION(scheduIe Jimer)  >  cnr^link_^qp_STOP_TIME45  then 
PUT_LINE(”timing  error  from  operator  cnr_link:_op'’); 

SUBTRACT_HOST_TIME_FROM_ALL_TIMERS(HOST_.DURATION(schedule Jimer)  -  onr_link_op_STOP_TIME45); 
end  if, 

delay(shooter_op_START_TIME46  -  HOST_DURATION(scheduIe Jimer)); 
shooter_op_DRrVER; 

if  HOSTJDURATION(scheduleJimer)  >  shooter_op_STOP_TIME46  then 
PlJT_LINE("timing  error  from  operator  shooter_op”); 

SUBTRACT_HOST_TIME_FROM__ALL_TIMERS(HOST_DURATION(schedule Jimer)  -  shooter_op_STOP_TIME46); 
endi^ 

delay(gui_mput_event_monitor_START_TIME47  -  HOST_DURATION(schedule Jimer)); 
gui_inpiit_event_monitor_DRrVER; 

if  HOST_DURATION(schedule Jimer)  >  gui_input_event_monitor_STOP_TIME47  then 
PUT_LINE(**timmg  error  from  operator  gui_input__event_monitor”); 
SUBTRACT_HOST_^TIME_FROM_ALL_TIMERS(HOST_DURATION(schedule Jimer) - 
gui_inpiit_event_monitor_STOP_TIME47); 
end  if, 

delay(scdl_^link^op^START_TIME48  -  HOST^DURATION(schedule Jimer)); 
scdl  link_op_DRIVER; 

if  HOST_DURATION(schedule_timer)  >  scdLlink_op_STOP_TIME48  then 
PUT_LINE("timing  error  from  operator  scdl  Jink  op”); 

SUBTRACT^HOST_TIME_FROM_,ALL__TIMERS(HOST_DURATION(schedule Jimer)  -  scdl_link_op_STOP_TIME48); 
end  it; 

delay(lanl_link_op_START_TIME49  -  HOST_DURATION(schedule Jimer)); 
lanl_link_op_DRrVER; 

if  HOST_DURATION(schedule Jimer)  >  Ianl_link_op_STOP_TIME49  then 
PUT_LINE("timing  error  from  operator  lanl_Unk_op"); 

SUBTRACT_HOST_TIME__FROM_ALL_TIMERS(HOST_DURATION(scheduIe Jimer)  -  lanl__link_op_STOP_TIME49); 
end  it; 

delay(choose_inputs_START_TIME50  -  HOST_DURATION(scheduIe Jimer)); 
choose^inputsDRTVER; 

if  HOST_DURATION(scheduIe Jimer)  >  choose_inputs_STOP_TIME50  then 
PlJT_LINE("timing  error  from  operator  choose_inputs"); 

SUBTRACT_HOST_TIME_FROM_ALL_TIMERS(HOST_DURATION(schedule Jimer)  -  choose_inputs_STOP_TIME50); 
end  it; 

delay(lan2_link_op^START_TIME51  -  HOST^DUIUTION(schedule_timer)); 

Ian2Jink_op_DRIWR; 

if  HOST_DURATION(scheduIe_timer)  >  Ian2Jink_op_STOP_TIME51  then 
PUT_LINE("timing  error  from  operator  lan2  link_op"); 

SUBTRACT_HOST_TIME_FROM_ALL_TIMERS(HOST_DURATION(schedule Jimer)  -  lan2_link_op_STOP^TIME51); 
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endii; 


delay(ctoc__op__START_TIME52  -  HOST_DUI^nON(sdbedule_timer)); 
ctoc_op_DRrVER; 

if  HOST_DURATION(schedule_timer)  >  ctoc_op_STOPjnME52  then 
,  PUT_LINE(*'tumng  error  fixjm  operator  ctoc_op"); 

SUBTRACT_HOST_TIME_FROM__ALL_TIMERS(HOST_DURATION(schedule Jimer)  -  ctoc_op_STOP_,TIME52); 
end  if,  . 

delay(cnr_Iink_op__START__TIME53  -  HOST__DURATION(schedule_timer)); 
cnr_link__op_DRrVER; 

if  HOST_DURATION(scheduletimer)  >  cnr_linkop_STOP_TIME53  then 
PlJT_LINE("timing  error  from  operator  cnr_link_op"); 

SUBTRACT_HOST_TIME_FROM_.ALL^TIMERS(HOST_DURATION(schedule Jimer)  -  cnr^link^op_STOP^TIME53); 
end  if, 

delay(shooter_op__START_TIME54  -  HOST_DURATION(scheduleJimer)); 
shooter_op_DRrVER; 

if  HOST_DURATION(schedule Jimer)  >  shooter_op_STOP__TIME54  then 
PUT_IJNE(’*timing  error  from  operator  shooter_op"); 

SUBTRACT_HOST^TIME__FROM_ALL_TIMERS(HOST_.DURATION(schedule Jimer)  -  shooter_op_STOP_TIME54); 
end  if, 

delay(scdl_link_op^START_TIME55  -  HOST_DURATION(schedule Jimer)); 
scdl_link_op_DRIVER; 

if  HOST_DURATION(schedule Jimer)  >  scdLlink_op__STOP_TIME55  then 
PUT_LINE(*‘timmg  error  from  operator  scdl__link_op”); 

SUBTRACT_HOST_TIME^FROM^AIX_TIMERS(HOST_DURATION(schedule Jimer)  -  scdl_Iink_op__STOP_TIME55); 
end  if, 

delay(gmd__stal_mod_op__START_TIME56  -  HOST_DtIRATION(schedule Jimer)); 
grndstatmodopDRIVER; 

if  HOST_DURATION(sdiedule Jimer)  >  grnd_statjmod_op_STOP_TIME56  then 
PUr  UNECtiming  error  from  operator  grad  stat  mod  op"); 

SUBTRACT_HOST_TIME_FROM_^ALL__TIMERS(HOST_DURATION(schedule Jimer)  - 
gmd_stat_mod_op_STOP_TIME56); 
end  if, 

delay(lanl_link_pp_START_TIME57  -  HOST_DURAT[ON(schedule Jimer)); 

Ianl_link_op_DRrVER; 

if  HOST_DURATION(schedule Jimer)  >  lanl_Iink_op_STOP_TIME57  then 
PtnjLINECtiming  error  from  operator  lanl  Jink  op"); 

SUBTRACT_HOST^TIME_FROM_ALL_^TIMERS(HOST_^DURATION(schedule^timer)  -  laxil_link_op_STOP_TIME57); 
end  if, 

deIay(asas_op_START_TIME58  -  HOST_DURATION(schedule_timer)); 
asas  (^  DRIVER; 

if  HOST_DURATION(scheduleJtmer)  >  asas_op_STOP_TIME58  then 
PUT_LINE("timing  error  from  operator  asas  op"); 

SUBTRACT_HOST_TIME^FROM_ALL_TIMERS(HOST_DURATION(scheduIe Jimer)  -  asas_op_STOP_TIME58); 
end  if, 

delay(choose_ir5)Uts__START_TIME59  -  HOST_DURATION(schedule_timer)); 
choose Jr^uts^DRIVER; 

if  HOST_DURATION(schedule Jimer)  >  choose_inputs_STOP_TIME59  then 
PUT_LINE('‘timing  error  from  operator  dioose  Jnputs"); 

SUBTRACT_HOST_TIME_FROM_ALL_T[MERS(HOST_DURATION(schedule_timer)  -  choose_inputs_STOP_TIME59); 
endi^ 

delay0an2_link_op__START_TIME60  -  HOST_DURATION(schedule Jimer)); 
lan2 J[ink_op_DRIVER; 

if  HOST_DURATION(schedule Jimer)  >  lan2_Iink_op_STOP_TIME60  then 
PUT_LINE("timing  error  from  operator  lan2  Jink_op”); 

SUBTRACT^HOST_TIME^FROM_ALL_TIMERS(HOST_DURATION(scheduleJimer)-lan2_link  op_STOP  TIME60); 
end  if; 

delay(ctoc_op_^START_TIME61  -  HOST_DURATION(schedule Jimer)); 
ctoc_op_DRIVER; 

if  HOST_DURATION(schedule Jimer)  >  ctoc_op_STOP_TIME61  then 
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PUT_LINEC*tumng  error  from  operator  ctoc_op”); 

SUBTRACT_HOST_TIME_FROM_ALL__TIMERS(HOST_DlJRATION(scheduleJimer)  -  ctoc_op_STOP  TIME61); 
end  if;  » 

deIay(ciu-_link_op_START_TIME62  -  HOST_DURATION(schedule Jimer)); 
cra-_IinIc_op_DRrVER; 

if  HOST_DURATION(schedule Jimer)  >  cnr_link_op_STOP_TIME62  then 
PUT_LlNB("tiniing  error  from  operator  cnr_link_op"); 

SUBTRACT_HOST^TIME_,FROM_,ALL_TIMERS(HOST_DURATION(schedule Jimer)  -  cm_lmleop_STOP_TIME62); 

end  if, 


delay(shooter_op_START_TIME63  -  HOST_DURATION(schedule_timer)); 
shooterop^DRTVER; 

if  HOST_DURATION(scheduIe_timer)  >  shooter_op_STOP_TIME63  then 
PUT_LINE("timing  error  from  operator  shooter^op"); 

SUBTRACTJffOST_TIME_FROM_ALLjnMERS(HOST_DURATION(schedule_timer)  -  shooteropSTOP_TIME63); 

end  if, 

delay(gui_input__event_monitor_START_TIME64  -  HOST_DURATION(schedule_timer)); 
gui_iiq)iit_event_monitor_DRIVER; 

if  HOST_DURATION(schedule_timer)  >  gui_ii^ut_event_monitor_STOP_TIME64then 
PUT_LINE("tuning  error  from  operator  gui_input_event_mQnitor”); 
SUBTRACT_HOST^TIME_FROM_ALL^TIMERS(HOST_DURATION(schedule_timer)  - 
gui__ii^)ut_event_monitor_STOP_TIME64); 
end  if 

delay(scdl_^link_op_START_TIME65  -  HOST_DURATION(schedule_timer)); 
scdllinkopDRIVER; 

if  HOST_DURATION(scheduIe_timer)  >  scdl_link_op_STOP_'nME65  then 
PUTLINEftiming  error  from  operator  scdl_lmk_op"); 

SUBTRACT_HOST_TIME_FROM_ALL_'nMERS(HOST_DURATION(schedule_timer)  -  scdl_link_op_STOP  TIME65); 
end  if,  “  ’ 

delay(lanl_iink_op_START_TIME66  -  HOST_DURATION(scheduIeJimer)); 

Ian  l_link_op_DRI  VER; 

if  HOST_DlIRATION(schedule_timer)  >  Ianl_link_op_STOP_TIME66  then 
PUT_LINE("timmg  error  from  operator  lanl_link_op"); 

SUBTRACT_HOST_TIME_FROM_ALL_TIMERS(HOST_DURATION(schedule_timer)  -  Ian  l  link_op_STOP_TIME66); 
end  if, 

delay(choose_inputs_START_TIME67  -  HOST_DURATION(schedule_timer)); 
choose_inputs__DRIVER; 

ifHOST_DURATION(schedule_timer)  >  choose_inputs_STOP_TIME67then 
PUT_LINE('*timing  error  from  operator  choose_inpu1s"); 

SUBTRACT_HOST_TIME_FROM_ALLjriMERS(HOST_DURATION(schedule_timer)  -  choose_inputs_STOP_TIME67); 
end  if, 

deIay0an2_link_op_START_TIME68  -  HOST_DURATION(scheduIe_timer)); 
lan2Jink_op_DRrVEB^ 

if  HOST_DlJRATION(schedule_timer)  >  lan2_link_op_STOP_TIME68  then 
PUT_LINE('*timing  error  from  operator  lan2_link_op"); 

SUBTRACT_HOST_TIME_FROM_ALL_TIMERS(HOST_DURATION(schedule_timer)  -  lan2_link_op_STOP_TIME68); 
end  if; 


delay(ctoc_op_START__TIME69  -  HOST_DURATION(schedule_timer)); 
ctoc_op_DRIVER; 

if  HOST_DtJRATION(schedule_timer)  >  c4oc_op_STOP_TIME69  then 
PUT_LINE(*'timing  error  from  operator  ctoc_op"); 

SUBTRACT^HOST_TIME_EROM^ALL_TIMERS(HOST_DURATION(scheduleJimer)  -  ctoc_^op_STOP_TIME69); 

end  if, 

deIay(cnr_link_op__START_TIME70  -  HOST_DURATION(scheduIeJimer)); 
cnr_lmk_op_DRIVER; 

if  HOST_DURATION(scheduIe Jimer)  >  cnr_link_op_STOP_TIME70  then 
PUT_LINE("timing  error  from  operator  cnr_link_op"); 

SUBTRACT_HOST_TIME_FROM_ALL_TIMERS(HOST_DURATION(schedule_timer)  -  cnrjink  op  STOP  TIME70)- 

end  if, 

delay(shooter__op_START^TIME71  -  HOST_DURATION(scheduIe__timer)); 
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shooter_op_DRrVER; 

if  HOST_DURATION(schedule_timer)  >  shooter_op_STOPTIME71  then 
PUT_LINE("timmg  error  from  operator  shooter_op"); 

SUBTRACT_HOST_TIME_FROM_ALL__TIMERS(HOST_DURATION(scheduIe_timer)  -  shooter_op_STOP_TIME71); 
endif» 

delayCPERIOD  -  HOST_DURATION(schedule_timer)); 

RESET(schedule_timer); 
end  loop; 

end  STATIC_SCHEDULE_TYPE; 

pro^dure  START_STATIC_SCHEDULE  is 
begin 

STATIC^SCHEDTXE.START; 
end  START_^STATIC_SCHEDULE; 

end  atacms_STATIC_SCPIEDULERS; 


with  ATACMS_STATIC_SCHEDULERS;  use  ATACMS_STATIC_SCHEDULERS; 
with  ATACMS__DYNAMIC_SCHEDULERS;  use  ATACMS_DYNAMIC_SCHEDULERS; 
with  CAPS_HARDWARE_MODEL;  use  CAPS_HARDWARE__MODEL; 
procedure  ATACMS  is 
begin 

init_hardwarejtnodel; 
start_static_schedule; 
stait_dynamic_schedule; 
end  ATACMS; 


91 


atacms.asas_op.a 


-  filename:  atacms.asas_op.a 

-  Created  05  Jun  96,  mod  7/29/96yniod  04  Sep  96 

-  Purpose:  This  package  simulates  the  operations  of the  AS  AS. 

-  This  module  takes  the  simulate  video  [array  of  records],  looks  for 

-  targets,  prioritizes  them,  then  orders  the  shooter  to  fire  at  them  one 

-  atatime. 

-  compile.,,  ada  alacms.asas_op.a 


with  text_io;  use  text_io; 
with  target_data_PKG; 
with  gmd_stat_mod__aiTay__PKG; 
with  constants_PKG; 
with  asas_lv_array_PKG; 
with  my_unit_PKG; 

package  asas_op_PKG  is 

procedure  asas_op  (target_array4_str :  gmd_stat_modLarray_PKG,gmd_stat_mod_array; 
gui_in_str:  myjunit_PKG.my_unit; 
fire_cmdl_str :  outtarget_data_PKG.target_data); 

end  asasopPKG; 


package  body  asas_op_PKG  is 

-  This  array  tracks  the  fired  on  'status'  of  the  targets.  This  precludes  firing  a  second 

-  time  at  the  same  target 

-  a  '0!  indicates  no  target  present  and  thus  has  not  been  fired  on  (i.e.,  null  status 

-  a  '1 '  indicates  this  target  is  awaiting  an  available  shooter 

-  a  *2' indicates  a  fire  mission  has  been  assigned  to  this  target  -future  use 

-  a  3'  if  implemented  would  indicate  the  target  has  been  shot  at  Sc  neutralized  -  future  use 

-  The  array  index  will  be  the  tgt_num'  of  the  IN  parameter 
LV_beett_shot_yet :  asas_lv_array_PKG.asas_lv_array; 

-  used  to  track  ^^ch  targets  have  been  assigned  to  the  the  shooter 
LV_counter :  natural  :=  1; 

-  used  to  hold  the  last  target  number  (index)  examined  during  the  previous  running 

-  of  this  module 

LV  holder  :  natural  :=0; 

procedure  asas_operator_delay  is 
begin 

delay  duration(constants_PKG.mean_asas_operator_deIay);  -temporary;use  mean  &  deviation 

-to  calculate  delay 
—(see  coiistants_PKG) 

end  asas  operator_delay; 

procedure  asas_processing_delay  is 
begin 

delay  duration(constants_PKG.mean_asas_processing_delay);-temporary;use  mean  &  deviation 

-to  calculate  delay(see 
-constantsPKG) 

end  asas_processing_delay; 

procedure  asas_transmission_prep_deIay  is 
begin 

delay  duration(constants_PKG.mean_asas_transmissionjprep_delay);— temporary;use  mean  & 

-deviation  to  calculate 
-delay(see  constants_PKG) 

end  asas_transmission_prep_delay; 
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-insert  simulated  errors 


procedure  asas_error  is 
begin 
null; 

end  asas_ertor, 

procedure  asasop  (target_aiTay4_str :  gmd_stat_mod_aiTay_PKG.gnid_stat_mod_array; 
gui_in_str:  my_unit__PKG.my_unit; 
fire_cmdl_str :  outtarget_data_PKG.target_data)  is 

index :  natural 0;  -  an  local  index  to  match  the  tgt_num’  of  the  IN  parameter 
row :  natural  0; 
col :  natural  :=  0; 

begin 

Put_line(”ASAS  processing  targeting  information..."); 

—  loop  thru  IN  parameter  array  of  records  looking  for  targets. 

-  Those  records  with  a  tgt_num*  are  targets 

for  row  x  in  constants_PKG.min_aiTay..constants_PKG.max_aiTay  loop 
for  column^y  in  constants_PKG.min_aiTay..constants_PKG.max_array  loop 


—  only  do  this  (grant  it  an  'awaiting  shooter*  status)  if  it  does  have 

—  a  previously  assigned  tgtjnum  AND  it  hasn't  previously  been  assigned  a  status 

-  on  aprevious  trip  thru  this  'if  statement 

if  (target_array4_str(row_x,column_y).tgt_num/=  0)  AND 

(Ly__been_shot_yet(target_array4__str(row__x,column_y).tgt_num).status  =  0)1hen 

—  copy  it  here  for  readability  below, 

index  target_anay4__str(row__x,column_y).tgt_num; 

-  Once  you  find  a  target,  put  it  in  an  'awaiting  shooter*  status 

—  and  record  it's  position  for  later  use 
LV_been_shot_yet(index).target_class  := 

tai^et_array4_str(row_>^column_jy).target__class; 
LV_been_shot_yet(index).status  1; 

LV_been_shot_yet(index).x_val  :=  row_x; 

LV_been_shot_yet(index).y_val  :=  column_y; 

Lyj)een_shot_yet(index).tgt_num  :=  index; 

—  for  debugging******* 

-putf 'In  ASAS  'if,  the  current  tgt_num  is  "); 

-  constants_PKG.int_io.put(inde;40); 

-put("  and  LV_maxjt^_num...");  constants_PKG.intJo.put(Lyjnax_tgt_num,0); 
-newline; 


end  if, 
end  loop; 
end  loop; 

—  Next  job  is  to  send  the  next  target  to  the  shooter 

—  First,  simulate  prioritizing  the  current  targets 

—  procedure  prioritize(LV_been_shot__yet :  in  out  asas_lv_array_PKG.asas  Jv_array); 

—  Now,  only  enter  this  section  if  the  counter  below  points  to  a  record  with  a  valid  target 
if  LV_been_shot_yet(LV_counter).status  /=  0  then 

row  :=  LV_been_shot_yet(LV_counter).xjvaI; 
col LVjDeen_shot_jyet(Ly_counter).y_val; 

-  pass  target  to  OUT  parameter 
fire_cmdl_str.target_class  := 

target_array4_str(row,col).target_class; 
fire_cmdl_str.easting  := 

target_array4_str(row,col).easting; 
fire_cmdl_str.northing  := 

target_array4_str(row,col).noithmg; 
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fire_cmdl_str.aH  := 

target_array4_str(row,col).aIt; 
fire_cmdl_str.tgt_num  := 

target_array4_str(row,col).tgt_num; 
j5re_cmdl_str.good_xmission  := 

target_aiTay4  str(coii5tants_PKG.min_an^y,c5onstants_PKG.min_array).good_xmission; 
&e_cmdl_str.statiis  := 

LV_been_shot_yet(LV_counter).status; 

LV_counter  :=  LV_counter  +1 ;  -  point  to  next  target  in  the  array 


end  if. 


-THESE  ARE  PLACEHOLDERS;  USE/MODIFY  AS  NECESSARY 
-asas_operator_delay; 

-asasjprocessing_delay; 

— asas_transmission_prep_delay, 

~asas_error. 


end  asas_op; 
end  asas_op_PKG; 


-putf'Good  xmission  so  far? ...  "); 

~constants_PKG.bool_io.put(target_array4_str(constants_PKG.min_anay, 
—  cQnstants_PKG.niin_array).good_xmission);  new_line; 


-putC'In  ASAS,  LV_counter... "); 

— constants_PKG.int_io.put(LV_coiinter,0);  new_line;  ~  for  debugging 
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atacms.choose_inputs.a 


“  filename:  muIt_weather.choose_ii5)uts.a 


—  Authors:  George  Whitbeck  and  LCDR  David  Angrisani 

—  Date:  6  Aug  96 

—  Project:  Thesis  -  A  CAPS  Prototype  of  the  ATACMS  C3  System 

—  Purpose: 

—  a  child  bubble  of  parent  "gui_in"  fiom  our  thesis 

—  This  file  is  a  candidate  for  auto  code  generation  in  the  future. 

—  Dr  Berzin's  script  doesn't  currently  generate  this  but  it  could 

withmy_unitj)kg;  -provides  alype  of  "Start,  Pause,  AddTarget,  Quit" 
with  text_io;  use  text_io; 

package  choose_inputs_PKG  is 

procedure  choose_inputs(gui_in_str :  outmyjinit_PKG.my_unit); 

-  procedure  "record_ii^ut"  is  used  as  follows. 

—  User  selects  "Start,  Pause,  Add^Target,  or  Quit"  with  mouse. 

-  Event  handler  in  package  "atacms.pan__gui_in_b.a"  reads  the  mouse 

-  event  and  makes  a  procedure  call  to  this  procedure.  It  sends  along  either 

-  the  words  Start,  Pause,  Add_Target,  or  Quit", 

procedure  record__input(gui_in_str :  inmy_unit_PKG.my_unit); 

end  choose__inputs_PKG; 

with  psdl_streams;  use  psdl^streams; 

package  body  choose__irq)uts_PKG  is 

package  gui_in_str_buffer  is  new  sanq)led_buffer(myjunit_PKG.my_unit); 
use  gui_in_str_buffer. 


—  can  cut  and  paste  the  guts  of  this  for  any  app,  change  parameter,  etc 
procedure  choose_inputs(gui_in_str :  outmy_unitJPKG.my_unit)  is 
begin 

-  below  is  j&om  gui_in_str_bufifer 
buffer.read(gui_in_str); 

— put_line("buffer  read,  in  choose_inputs"); 

end  choose_inputs; 

—  can  cut  and  paste  the  guts  of  this  for  any  app^  change  parameter,  etc 
procedure  record_input(gui_in_str ;  inmy_unit_PKG.my_unit)  IS 
begin 

-  below  is  fix>m  gui_in_str_buffer 
buffer.write(gui_in_str); 

— put__line("Buffer  write—  in  choose_ii^uts.a,  radio  button  pushed."); 
end  record_inpu^ 
end  choose_iiq)uts_PKG; 
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atacms.cmds  out.a 


-  filename:  atacnis.cmds_outa 

-  Authors:  Maj  George  Whftbeck  and  LCDR  David  Angrisani 
“Date:  6  Aug  96 

-  Project:  Thesis  -  A  CAPS  Prototype  of  the  ATACMS  C3  System 

“  Puipose:  This  is  the  matching  ada  file  for  the  output  items  specified 
“  as  a  TAE  item  in  panel  "gui_out",  and  as  a  child  bubble  of 
“  parent  "gui^out" 


with  text_io;  use  text_io; 

with  target_data_PKG;  -###  manually  added 


package  cmds__out_pkg  is 

procedure  cmds_out(gui_out_str:  target_data_PKG.target_data); 
end  cmds_outjpkg; 

with  atacDJS_mput_eventjnonitQr_task_j)kg; 
use  atacms_input_event_monitor_task_pkg, 
package  body  cmds_out_pkg  is 

procedure  cmds_out(gui_out_stn  target_data_PKG.target_data)  is 
begin 

“put_line("^^''^^^out  to  request  a  rendezvous...  in  cmds_outa  "); 

atacms_iiq)Ut_event_monitor_taskcmds_out_entiy(gui_out_str); 
“put_line("^^''^^ust  retruned  fi-om  a  rendezvous...  in  cmds_outa  "); 

end  cmds_ouk 
end  cmds_out_pkg; 
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atacins.cnr_link_op.a 


—  filename:  atacins.cnr_link_op.a 

—  Aufiiors:  Maj  GcOTge  Whitbeck  and  LCDR  David  Angrisani 

-  Date:  6  Aug  96miod  04  Sep  96 

-  Project:  Thesis  -  A  CAPS  Prototype  of  the  ATACMS  C3  System 
-Purpose: 


-this  comm  link  will  pass  on  the  data  90%  of  the  time. 

—  In  1 0%  of  the  transmissions, 

—  we  simulate  friction  and  the  mission  dies  in  the  network 

—  to  compile...  ada  atacms.cnr_link_op.a 


with  text_io;  use  text_io; 
with  target_data_PKG; 
with  global_random_PKG; 
with  constants_PKG; 

package  cnr_link_op_PKG  is 

procedure  cnr_link_op  (fire_cmd3_str :  intarget_data_PKG.target_data; 

fire_cmd4_str :  outtarget_data_PKG.target_data); 
end  cnr_link_op_PKG; 


package  body  cnr_link_op_PKG  is 


procedure  cnr_linkj)rocessing_delay  is 
begin 

delay  duratiQn(cQnstants__PKG.mean_cnr_linkjprocessing_delay);-teii^K)raiy;use  mean  &  deviation  to 

-calculate  delay(see  constants^PKG) 

end  cnr_link_processing_delay; 

procedure  cin'_link_transmission_prep_delay  is 
begin 

delay  duration(constants_PKG.mean_crir_lmk_transiiiission_prep_delay);— ten:^)oraiy;use  mean  & 

-deviation  to  calculate 
— delay(see  constantsJPKG) 

end  ciir_link_transmission_prep_deIay; 


procedure  cnrJink_op  (fire_cmd3_str :  intarget_data_PKG.target_data; 
fire_cmd4_str  :  out  target_data_PKG.target_data)  is 

package  flt_io  is  new  float_io(float); 
use  flt_io; 

my_random :  float  :=  0.0; 


begin 

-  below  is  a  way  to  simulate  friction, 

my_random  :=  global  random  PKG.ftn  global^randoyn; 

if  my_random  >  constants_PKG.crash_rate  then 
fire_cmd4_str  :=  fire_cmd3_str, 
fire_cmd4_str.good_xmission :“  false;  —set flag 
-put_line("Now  in  procedure  ’cnr_link_op'  ...  crash  occured”); 
else 

fire_cmd4_str  :=  fire_cmd3_str, 

-put_line(T^ow  in  procedure  'cnr_link_op"'); 
end  if. 
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-THIS  SIMULATES  THE  LATENCY  FROM  THE  CTOC  TO  SHOOTER 
delay  3.0; 

-THESE  ARE  PLACEHOLDERS;  USE/MODIFY  AS  NEEDED 
-cnr_link_processing_delay; 

-cnr_liiik_1ransnussiQn_j)rep_ 


end  cnr_link_op; 
end  cnr_Iiiik_op_PKG; 
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atacins.constants.a 


-  file:  atacms.constants.a 


—  Authors:  Maj  Geoi^e  Whitbedk  and  LCDR  David  Angcisani 
“Date:  6  Aug  96 

“  Project:  Thesis  -  A  CAPS  Prototype  ofthe  ATACMS  C3  System 

—  Purpose:  To  hold  constants  that  we  deemed  necessary. 


“To  create  a  library:  'a.niklib  -i'  then  choose  T 
“to  clear  a  library:  'a.rmlib' 

“  compile  with...  ada  atacms.constants.a 


withtext_io; 

usetext_io; 

with  myxinitPKG; 

package  constants_PKG  is 

“  to  allow  i/o  for  booleans 

package  bool_io  is  NEW  text_io.EnumeratiQn_io(Enum  =>  boolean); 

“  to  allow  i/o  for  integers 

package  int__io  is  new  integer  Jo  (integer); 


subtype  delayjype  is  float  range  0.0..iloat1as^ 
meanJstars_operator_delay:  delay_type:=  5.0; 
meanJstars_processing_dclay:  delay  type:=  5.0; 
meanJstars_transmission_prep_delay:  delay Jype:=  5.0; 
mean_scdl_link_j)rocessing_delay:  delayjype:-  5.0; 
mean_scdl_liiikJransmission_prq)_delay:  delay Jype:=  5.0; 
mean _^gmd_stat_mod_operator_delay:  delayjype:=  5.0; 
mean_grad_stat_modj)rocessing_delay:  delay Jype:=  5,0; 
mean _gmd_stat_mod  transmissionj)r^jielay;  delayjype:=  5.0; 
meanJanl_linkjprocessing^delay:  delay Jype:=  5.0; 
meanJanl_linkJransmissiQnj)rep_delay:  delayjype:-  5.0; 
mean__asas_operatQr__delay:  delayjype:=  5.0; 
mean_asasjprocessing_delay:  delayjype.-  5.0; 
mean_asasJransmission_prep_delay:  delayjype:=  5.0; 
meanJan2_link_processing_delay:  delayjype:=  5.0; 
meanJan2_linkJransmission_prep_delay:  delay Jype:=  5.0; 
mean_ctoc_operator_delay:  delay Jype:=  5.0; 
mean_ctoc_j)rocessing_deIay:  delayjype:=  5.0; 
mean_ctocJransmission_prep_delay:  delayjype:-  5.0; 
mean_cnr_link_j)rocessing_delay:  delayjype:=  5.0; 
mean_cnr_lmkJransmission_prep_delay:  delay Jype:=  5.0; 
mean_shooter_operator_delay:  delay Jype:=  5.0; 
mean_shooterjprocessing_delay:  delay Jype:==  5.0; 
mean_shooterJransmission_prep  delay:  delayjype:=  5.0; 


subtype  deviation  is  float  range  0.0..£loat’las^ 
jstars_operator_deviation:  deviation:=  5.0; 
jstarsjprocessing_deviation:  deviation:=  5.0; 
jstars Jransmission_prep_deviation:  deviation:=  5.0; 
scdl_link_processing_deviation:  deviation:^  5.0; 
scdl_linkJransmission_prep_deviation:  deviation:^  5.0; 
gmd_stat_mod_operator_deviation:  deviation:=  5.0; 
gmd_stat_mod_j)rocessing_deviation:  deviation:=  5.0; 
gmd_stat_mod_transmission_prep_deviation:  deviation:=  5.0; 
lanl Jmk_processing_devialion:  deviation:-  5.0; 
lanl_linkJransmission_prep_deviation:  deviation:^  5.0; 
asas_operator_deviation:  deviation:^  5.0; 
asas_processing_deviation:  deviation:=  5.0; 
asas Jransmission_prep_deviation:  deviation:^  5.0; 
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lan2__link_processmg_deviation;  deviationr^  5.0; 
lan2_UnkJransmissiQnjprep_deviation:  devialion:=  5.0; 
ctoc_operator_deviation:  deviation:=  5.0; 
ctoc_processmg_deviation:  deviation:^  5.0; 
c?tocJransmission_jjrep_deviation:  deviation:=  5.0; 
cnr_link_j)rocessmg_deviatioii:  devialion:=  5.0; 
cnr_lmkJraiisanissiQn_j)rep_de  deviation:^  5.0; 

shooter_operator_deviation:  deviation:-  5.0; 
shooter_processmg_deviation:  deviation:^  5.0; 
shooter_transmission_prep_deviation:  deviation:=  5,0; 


min_array  :  constant  integer  :=  100;  ~  the  min  array  index 

max_airay  :  constant  integer  :=  110;  -  the  max  array  index 

thousand  :  constant  integer  :=  1000;  -  represents  magic  number  of  1000 

crash^iate  :  constant  float  :=0.9;  —the  percent  of  successful  transmissions 

max_new_tgts :  constant  integer  :=  8;  ~  the  number  of  new  target  detections  each  cycle 

end  constants_PKG; 
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atacms.ctoc_op.a 


—  filename:  atacms.ctoc_op.a 


—  Authors:  Maj  George  Wfahbeck  and  LCDR  David  Angrisani 

—  Date:  6  Aug  96;modofied  04  Sep  96 

—  Project:  Thesis  -  A  CAPS  Prototype  of  the  ATACMS  C3  System 

—  Purpose:  This  package  simulates  the  operations  of  the  CTOC. 

—  Their  function  inthis  abstraction  is  rdl.  They  singly  send 

—  off  the  fire  mission  to  the  shooter 

—  con^ile..  ada  atacms.ctoc_op.a 


with  text_io;  use  text_io; 
with  target_data_PKG; 
with  constants_PKG; 
package  ctoc__op__PKG  is 

procedure  ctoc_op  (fire_cmd2_str :  target_data_PKG.target_data; 
fire_cmd3_str :  outtarget__data_PKG.target_data); 

end  ctoc_op_PKG; 


package  body  ctoc_op_PKG  is 


procedure  ctoc_operator_delay  is 
begin 


delay  duration(constants_PKG.mean_ctoc_operator_delay);  — teirporary;use  mean  &  deviation 

-to  calculate  delay 
-(see  constants_PKG) 

end  ctoc_operator_delay; 


procedure  ctoc_processing_delay  is 
begin 

delay  duration(constants_PKG.mean_ctoc_processing_deIay);— teniporary;use  mean  &  deviation 

-to  calculate  delay(see 
-constantsPKG) 

end  ctoc_processmg__delay; 


procedure  ctoc_transniissiQn_j)rep_delay  is 
begin 

delay  durati<Mi(constants_PKG.mean__ctoc_transmission_pr^_delay);— teiDporary;use  mean  & 

—deviation  to  calculate 
-delay(see  oonstants_PKG) 

end  ctoc_transmission_prep_delay; 

procedure  ctoc_error  is 
begin 

null;  -insert  simulated  errors 

end  ctoc_errQr, 


procedure  ctoc_op  (fire_cmd2_str :  target_data_PKG.target_data; 

fire_cmd3_str :  outtarget_dala_PKG.target_dala)  is 


begin 

fire_cmd3_str  :=  fire_cmd2_str, 
-Put_line(''Now  in  procedure  'ctoc^op'"); 
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illll 


E  ARE  PLACEHOLDERS;  USE/MODIFY  AS  NECESSARY 
_operator_delay; 

_processing_deIay; 

Jransmission_jjrep_<Iela)^ 

_eiTor, 


end  ctoc_op; 
end  ctoc_op_PKG; 
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atacms.event  task.a 


-  filename:  atacms.evenMask.a 

~  Authors:  Maj  George  Whitbeck  and  LCDR  David  Angrisani 
-Date:  6  Aug  96 

~  Project:  Thesis  -  A  CAPS  Prototype  of  the  ATACMS  C3  System 

-  Purpose:  The  wrapper  task  to  provide  mutual  exclusion 

-  for  calls  fiom  the  prototype  to  TAB. 

withtarget_data_PK&,  -########  we  added  this 
with  text_io;  use  text_io; 

package  atacnis_iiq)ut_event_monitor_task_pkg  is 
task  ataans_ii5)ut_event_monitor_task  is 
entry  ii]put_evenkmQnitor__entry, 

entry  cmds_out_entiy(gui_out_str:  target_data_PKG.target_data); 
end  atacms_iiq)ut_eventjmonitor_task; 
end  atacms__irq)ut_event_monitor_task_pk^, 

with  paneI_gui_ou^ 

with  generated_tae_ir^ut_e vent_monitor_pkg; 
package  body  atacms_ii^ut_event_monitor_task_pkg  is 
task  body  atactris_input_evetit__moriitor_task  is 
begin 
loop 
select 

accept  input_event jnionitor_entry  do 

~put_line("@@@@@@@@  in  ’eventjtask-a',  now  accepting  an  INPUT"); 
generated__tae_irq)ut_eventjmonitor_pkg.generated_tae_input_event_momtQr, 
~put_line("@@@@@@@@  in  *event_task.a',  now  returning  fiom  an  INPUT"); 

end  irq)ut_event_mQnitor_entry; 
or 

accept  cmds_out_entry(gui_out_str:  target_data_PKG.target_data)  do 
--put_line("%%%%%%%%  in  'event_task.a‘,  now  accepting  an  OUTPUT"); 
panel ^i_outcmds_out(gui_out_str); 

~put_line("%%%%%%%%  in  'event_task-a',  now  returning  fiom  an  OUTPUT'); 

end  cmds_out_entry; 
end  select 
end  loop; 

end  atacins_ii^iJt_eveiit_moriitor_task; 
end  atacms_input_event_monitor_task_pkg; 
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atacms.global_b.a 


»  filename:  atacms.global_b.a 

-  Authors:  Maj  George  Whitbeck  and  LCDR  David  Angrisani 
-Date:  6  Aug  96 

-  Project:  Thesis  -  A  CAPS  Prototype  of  the  ATACMS  C3  System 

-  Puq)ose:  This  TAE  generated  file  is  hancfy  for  adding  a  quit  button  to  CAPS  prototypes 


-  ♦♦♦  TAE  Plus  Code  Generator  version  V5.3  [Merge  Token:  DO  NOT  DELETE.] 

-  ***  File:  global_b.a 

-  ♦♦♦  Generated:  Jul  30  13:4S:56  1996 

_  ********************************i^*^t**t***t*******m***iii***^*^f*n‘*********** 

-  ♦ 

~  *  Global  -Package BODY 

_  ♦ 

_  *******t*t*t*t*t**t*****************tt*************t*t*t**************t*** 

package  body  Global  is 
-|  NOTES:  (none) 

H 

-I  REGENERATED: 

-|  This  file  is  generated  only  once.  Therefore,  you  may  modify  it  without 
-|  inq)acting  automatic  code  merge. 

-I  CHANGE  LOG: 

— 1 30-Jul-96  TAE  Generated 

Is_Application_Done :  Boolean  :=  FALSE; 


-  .  i^lication_Done 

-  Subprogram  BODY 

function  Application^Done 
return  Boolean  is 

— 1  NOTES:  (none) 

begin  —  Application_Done 

return  Is_Application_Done; 

end  Application_Done; 

—  .  Set_AppIication_Done 

-  Subprogram  BODY 

procedure  Set_i^lication_Done  is 
— I  NOTES:  (none) 
begin  —  Set_Application_Done 
Is_Application_Done  :=  TRUE; 
end  Set_Application_Done; 

end  Global; 
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atacins.global_randoin.a 


-filename  "atacms.global_random.a" 

-  Authors:  Maj  George  Whitbeck  and  LCDR  David  Angrisani 

-  Date:  6  Aug  96 

-  Project:  Thesis  -  A  CAPS  Prototype  of  the  ATACMS  C3  System 
-Purpose:  A  random  number  generator.  A  call  to  this  function  returns  a 

-  real  number  jErom  0.0  to  1.0 


-  original  code  from  Prof  Shing,  modified  by  Maj  Whitbeck 
-6/12/96 


-to  compile  "ada filename"  ...  "ada global_random.a" 


with  CALENDAR; 
use  CALENDAR; 

package  global_random_PKG  is 

subtype  Global_Random_Number  is  Float  range  0.0..  1.0; 

function  ftn _global_random  return  Global_Random_Number, 
-returns  a  random  number  between  0.0  and  1.0 

end  globalrandomPKO, 


package  body  global  iandom  PKG  is 

Seed_Is_Not_Initialized :  Boolean  :=  True; 

Max_Seed_Value  :  constant  Natural  :=  3**9; 

Seed  :  Natural  :=  0; 

Does_Not_Matter  :  constant  Natural  :=  5**7; 

procedure  Initialize_Seed  is 

-initializes  seed  value  by  using  clock  time,  so  that  at  each  run  of  the 

-pack^e,  a  difrerent  set  of  numbers  are  created 

begin 

while  (  Seed  mod  2  )  ~  0  loop 

Seed  :=  (  Natural  (Seconds(Clock))  )  mod  Max_Seed_Valuc; 
end  loop; 

end  Initialize_Seed; 


frinctionftn _global_random  return  Global_Random_Number  is 
begin 

if  Seed_Is_Not_Initialized  then  Initialize^Seed; 

Seed_Is_Not_Initialized  :=  False; 
end  if. 

Seed  :=  (  Seed  ♦  Does_Not_Matter  )  mod  Max__Seed_Value; 
return  (  Hoat(  Seed  )  /  Float(  Max_Seed_Value  )  ); 
end  fhi_global_random; 

end  globalj:andom_PKG; 
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atacms.global_s.a 


-  Authors:  Maj  George  Whitbeck  and  LCDR  David  Angrisani 

-  Date:  6  Aug  96 

~  Project:  Thesis  -  A  CAPS  Prototype  of  the  ATACMS  C3  System 
“Purpose: 


“  ♦♦♦  TAE  Plus  Code  Generator  version  V5.3  [Merge  Token:  DO  NOT  DELETE.] 

“  File:  global_s.a 

-  Generated:  Jul  30  13:48:56  1996 

_  *:^*:^*t**********************t*********************************tt**^******* 

—  * 

“♦  Global  “Package  SPEC 

—  * 

with  X_Windows; 
with  Text  JO; 
with  TAE; 

package  Global  is 

“I  PURPOSE: 

“I  This  package  is  automatically  "with"ed  in  to  each  panel  package  body. 

“I  You  can  insert  global  variables  here. 

H 

“I  INITIALIZATION  EXCEPTIONS:  (none) 

H 

“I  NOTES:  (none) 

-I 

“I  REGENERATED: 

“I  This  file  is  generated  only  once.  Therefore,  you  may  modify  it  without 
“I  impacting  automatic  code  merge. 

H 

“I  CHANGE  LOG: 

“j30-Jul-96  TAE  Generated 

package  Taefloat  JO  is  new  Text  JO.Float  JO  (TAE.Taefloat); 

DefaultDisplayJd :  X_Windows.DispIay; 


“  .  Application  Done 

“  Subprogram  SPEC 

function  Application_DQne 
return  Boolear^ 

“1  PURPOSE: 

~i  This  function  returns  true  if  a  "quit"  event  handler  has  called 
“I  Set_Application_Done,  otherwise  it  returns  false. 

“1  EXCEPTIONS:  (none) 

! 

I 

“I  NOTES:  (none) 

“  .  Set  i^plication  Done 

“  Subprogram  SPEC 
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procedure  Set__Application_DQne; 

H  PURPOSE: 

This  procedure  can  be  used  by  an  event  handler,  typically  a  "quit" 
“I  button,  to  signal  the  end  of  the  application. 

“I 

-I  EXCEPTIONS:  (none) 

"I 

“}  NOTES:  (none) 
end  Global; 
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atacms.grnd_stat_mod_array.a 


~  filename:  atacms.gnid_stat_mod_anay.a 


-  Authors:  Maj  George  Whitbeck  and  LCDR  David  Angrisani 

-  Date:  6  Aug  96 

-  Project:  Thesis  -  A  CAPS  Prototype  of  the  ATACMS  C3  System 

-  Purpose: 


—  note  naming  convention  here  whh  filename,  package  name,  and  type  name! ! ! ! ! 

-  to  just  compile  type...  ada  atacms.gmd_statjnod_arTay.a 


withtext_io; 

usetext_io; 

with  constants_PKG; 

package  gmd_stat_mod_array_PKG  is 

—THIS  SECTION  CONTAINS  gmd_stat_mod_array,  which  is  the  type  for  the 

-  output  stream  for  gmd_statjnod_op  and  lanl_link_op  and  the 

-  ii^ut  stream  for  lanl__link_op  and  asas_op 

-  to  create  legal  entries  for  the  UTM  coordinate  system 
subtype  east_coord  is  integer  range  0..999_999; 
subtype  north_coord  is  integer  range  0..9_999_999; 
subtype  alt_coQrd  is  integer  range  -1000..10_000; 


type  gmd_stat_mod_aiTay_record  is  record 
target_class:  integer:=0; 
easting :  east_coord  :=  0; 
northing :  north_coord  :=  0; 
alt :  ah_coord  :=  0; 
tgtjnum :  natural  :=  0; 
good_xmission :  boolean  :=true; 
status :  natural  :=  0; 

end  record; 

type  gmd_stat_mod_array  is  airay(constants_PKG.min_array..constants_PKG.max_array, 
constants_PKG.min_array..constants_PKG.max_array) 
of  gmd_stat_mod  array_record; 

end  gmd_stat_mod_array_PKG; 
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atacins.grnd_stat_mod_op.a 


“filename:  atacms.grad_stat_mod_op.a 
“  Authors:  Maj  George  Whitbeck  and  LCDR  David  Angrisani 
“  Created  05  Jun  96,  mod  7/29/96;  MOD  04  SEP  96 

—  Project:  Thesis  -  A  CAPS  Prototype  of  the  ATACMS  C3  System 

“  Purpose:  This  package  simulates  the  operations  of  the 

-  ground  station.  In  the  ground  station,  the  video  is  analyzed  and  target  locations 
“  are  determined  In  this  prototype,  each  target  coming  in  is  given  a  simulated 

“  location  (see  below).  This  station  also  assigns  a  unique  target  number  to  each  target 

“  conq)ile,..  ada atacms.grad_stat_mod_op.a 


whhtext_io;  usetext_io; 
with  grad_stat_mod_aiTay_PKG; 
withjstars__array_PKG; 
with  constantsPKC^ 
with  global  jrandom  PKG; 

package  gmd_stat_mod_q)_PKG  is 

procedure  grad_stat jnod_op 

(target_aiTay2_str :  jstars_aiTay_PKG.jstars_array; 

target_array3_str :  out  gmd_statjiiod_array_PKG.gmd_stat_mod_aiTay); 

end  gmd__statjmod_op_PKG; 


package  body  grnd_stat_mod_op_PKG  is 


“  This  array  has  a  memory  due  to  its  position  in  this  package 
“  Used  to  store  and  manipulate  similated  info  before  dumping  its 
-  contents  into  the  OUT  parameter, 

LV_target_array :  gmd_statjiiod_array_PKG.gmd_stat_jnod_array, 

“  this  will  record  a  unique  serial  number  for  each  target  identified 
LV_tgt_num :  natural  :=  0; 

procedure  gmd_stat_mod_operator_deIay  is 
begin 

delay  duration(constants_PKG.mean_g3nnd_stat__mod_operator_deIay);  “teirq)oraiy;use  mean  &  deviation 

“to  calculate  delay 
“(see  constants_PKG) 

end  gmd_stat_mod_operator_delay; 

procedure  gmd_stat_mod_processing_delay  is 
begin 

delay  duration(constants_PKG.mean_gmd_stat_mod_processing_delay);“temporary;use  mean  &  deviation 

-to  calculate  delay(see 
-CQnstants_PKG) 

end  gmd_stat_mod_processing_deIay; 

procedure  gmd_stat_mod Jransmission_prep_delay  is 
begin 

delay  duration(constants_PKG.mean _gmd_stat_mod_transmission_prep_delay);“temporary;use  mean  & 

“deviation  to  calculate 
“delay(see  constants_PKG) 

end  grad_stat_mod_transmission_prep_delay; 
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—insert  simulated  errors 


procedure  gmd_stat_mod_error  is 
begin 
null; 

end  gmd_stat_mod_erTor, 


procedure  gmd__statjmod_op 

(taiget__array2_str :  jstars_anay_PKG.jstars_array; 

target_aiTay3_str :  out  gmd_stat_mod_array_PKG.gmd_stat_mod_airay)  is 

package  flt_io  is  new  float_io(float); 
use 

myjrandom :  float  :=  0.0; 
easting  :  natural  :-0; 
northing :  natural  :=  0; 
alt  :  natural  :=  0; 


begin 

-Put_line("Now  in  procedure  'gmd_stat_mod_op"’); 

-put(*'Good  xmission  so  far? ...  "); 

-constants_PKG.booHo.put(target_anay2_str(constants__PKG.min_array, 
-  constants_PKG.min_array).good_ximssion);  new_line; 


—  Step  thru  the  video  (array  of  records) 

for  row_x  in  constants_PKG.min_array..constants_PKG.inax_array  loop 
for  colunin_y  in  constants__PKG.min_array..constants_PKGmax_array  loop 

-  If  a  new  target  exists,  determine  its  location. 

-  It's  new  only  if  there  is  a  reflection  there  and  you 

-  haven't  seen  it  before, 

if  (target_aiTay2_str(row_x;column_y).target_class  /=  0)  AND 

(LV_target_array(row_x,colunin_y).tgt_num  =  0)  then 

myj:andom  :=  global_random_PKG.fln_global_randoni; 

—  now  ensure  the  correct  bounds  for  the  random  number 

—  to  make  the  grid  coordinate  a  realistic  number 
while  ((my_randQm  <  0.1)  or  (my_random  >  0.9))  loop 

my_random  :=  global  random  PKG.itn  global  random: 

end  loop; 

—  Our  way  of  assigning  grid  coordinates  to  the  newly  acquired  target 

easting  :=  integer(100000.0  *  my_random); 

northing  :=  100000  -  easting, 

alt  :=  integer(100.0  ♦  my_random); 

-  now  transfer  to  information  to  local  video 
LV_target_array(row_5^column_y).target_class  := 

target_array2_str(row_x,column_y).target_class; 

LV_target_array(row_x,coluimij^).easting  :=  easting, 
LV_target_array(row_x,coluiim_y),northing  :=  northing, 
LV_target_array(row_x,column_y).alt  :=  al^ 

LV_tgt__num  :===  LV_Jgtjium  +  1;  -  create  a  new  target  number*** 
LV_target_array(row_>tcolunm_y).tgt_num  :=  LV_tgt_num; 


else 

-  no  target  here,  just  pass  on  info 
LV_target_array(row_x,column_y),target_class  := 
farget_array2_str(rowx,column_y).target_class; 
end  if, 

end  loop; 
end  loop; 


no 


--THESE  ARE  PLACEHOLDERS;  USE/MODIFY  AS  NECESSARY 
~gnid_stat_niod;_operator_delay; 
-grad_stat_modjprocessing_delay; 
-gmdjstot_mod_transmissionj)rep_delay; 
-gnid_stat_mod_error. 


— pass  on  the  transmission  status,  it  does  not  get  affected  here 
LV_target_array(oonstants_PKG.min_anay,constants_PKG.mm_arTay).good_xmissiQn:= 
target_aiiay2_str(constants_PKG.min_array,coiistants_PKG.min_aiTay).good_xmissiQn; 

-  now  do  a  direct  copy  to  the  OUT  parameter 
target_axTay3_str  :=  LVjar^et^anay; 

end  gmd_stat_mod_op; 

end  gmd_statjnod_op_PKG; 


—constants  PKG.int_io.put(eastmg,0); 
-put("  &  "); 

— constants__PKG.mt_io.put(northing,0); 
-put("  & 

-constants_PKG.int_io.put(alt,0); 

-put("  &tgt_numis  *'); 
--constaiits_PKG.mt_io.put(LV_tgt_nuni,0); 
— new_line(2); 


—  Put("Now  in  procedure  'grad_stat_mod_opJ,  just  got  a  "); 

—  constants_PKG.int_io.put(target_array2_i^row_x,column__y).target_class,0); 

—  new^line; 

-^put("***********  row  and  col  are  "); 

—  constauts_PKG.int_io.put(iow_3^0); 

-put("&"); 

-constantsPKG.int_io.put(colunm_y,0);  newline; 

-constants_PKG.mt_io.put(eastmg,0); 

-put("  &  "); 

-CQnstants_PKG.int_io.put(northing,0); 

-put(”  &  ”); 

-ccmstants_PKG.int_io.put(aH,0); 

— new_lme; 

—  put(”A  random  number  is  "); 

—  put(my_random,l,3,0);  new_Iine; 

-target_array3_str.eastmg  target_array2_str(100,100).target__cl^; 
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atacms.gui_input_eyent_monitor.a 


~  filename:  atacms.gui_input__event_monitor.a 

--  Authors:  Maj  George  Whitbeck  and  LCDR  David  Angrisani 

—  Date:  6  Aug  96 

—  Project:  Thesis  -  A  CAPS  Prototype  of  the  ATACMS  C3  System 

—  Purpose:  This  comes  fi-om  Dr  Berzin’s  design  for  the  multi-file  approach  to  caps. 

—  "gui_ii^)ut_event_monitor"  is  a  child  bubble  with  no  streams.  It  is  embedded  in  the 
--  parent  "gui_in’'.  It's  only  purpose  is  to  request  a  rendezvous  with  the  event  monitor 

—  in  file  "atacms.event_task.a" 

withtext_io;  usetext_io; 

package  gui__ii5)ut__event_monitor_pkg  is 
procedure  gui_iiput_event_monitor, 
end  gui__input_event_monitor_pkg; 

with  atacnis_inpxit_even[t jiiQnitor_task_pkg; 
use  atacrns_input_eveiit_moiiitor_task_pkg; 
package  body  gui_input_event_monitor_pkg  is 
procedure  gui_input_event jnonitor  is 
begin 

-^ut__line("about  to  request  a  rendezvous...  in  gui_input_event_monitor.a  "); 
atacms_input__event_monitor_task.input_event_monitor_entiy; 
end  gui_input_event__monitor, 
end  gui_iiput_event_monitor_pkg; 
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atacms.jstars_array.a 


-  filename:  atacms.jstars_amiy.a 

—  Authors:  Maj  George  Whhbeck  and  LCDR  David  Angrisani 
“Date:  6  Aug  96 

“  Project:  Thesis  -  A  CAPS  Prototype  of  the  ATACMS  C3  System 
“  Purpose:  This  file  is  where  we  declare  an  array  to  simulate  jstars  ou^ut  video 
“  that  we  use  as  a  stream. 


“to just con^iletype...  ada  atacms.jstais_array.a 


withtextio; 

use  text_io; 

with  constants^PKG; 


package  jstars_anay_PKG  is 

“THIS  SECTION  CONTAINS  jstars_array,  which  is  the  type  for  the 
“  ou^ut  stream  for  jstais_op.a,  ie  input/ou^ut  stream  for  scdl_lmk_op,a, 
“  and  the  input  stream  for  gmd_stat_mod_op.a 

“  to  create  legal  entries  for  the  UTM  coordinate  system 
subtype  east  coord  is  integer  range  0..999_999; 
subtype  north  coord  is  integer  range  0..9_999_999; 
subtype  alt  coord  is  integer  range  -1000..  10_000; 


type  jstais_arTay_record  is  record 
target_class:  integer:-0; 
easting :  east_coord :-  0; 
northing :  north_coord  :=  0; 
tgt_num :  natural  :=  0; 
good_xmission :  boolean  :=  true; 
status  :  natural 0; 

end  record; 

type  jstars_anay  is  array(constants_PKG.mm_aiTay..constants_PKG.max_array, 
constants_PKG.min_aiTay..constants_PKG.max_array) 
of jstars_array_record; 


endjstars_aiTay_PKG; 
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atacms.jstars_op.a 


-filename:  atacms.jstars_op.a 


-  Authors:  Maj  George  Whitbeck  and  LCDR  David  Angtisani 

-  Date:  6  Aug  961;  modified  04  Sep  96 

-  Project:  Thesis  -  A  CAPS  Prototype  of  the  ATACMS  C3  System 

-  Purpose:  This  package  simulates  the  operations  of  the  JSTARS  Platform 

-  It  collects  emmisions,  creates  the  digital  video  and  transmits  it  to  the  groimd  station 


with  textjo;  use  text_io; 
with  target_emitter_airay__PKG; 
withjstais_an:ay_PKG; 
with  constants_PKG; 
with  myunitPKG; 


package  jstars_op_PKG  is 

procedure  jstars_op  (emissionstr :  targeten[iitter_array_PKG.target_emitter_aiTay; 
gui_in_str :  my_unit_PKG.my_unit; 
target_aiTayl_str :  out  jstars_array_PKGjstars_array); 

-procedure  jstars_operator_delay  (mean_jstais_operator_delay:  in  operator_delay); 

endjstais_op__PKG; 


package  body  jstars_op_PKG  is 


procedure  jstars__operator_delay  is 
begin 

delay  duration(constants_PKG.meanjstars_operator_deIay);  -temporaiy;use  mean  &  deviation  to 

-calculate  delay(see  constants_PKG) 

end  jstars_operator_delay; 

procedure  jstars_processing_deIay  is 
begin 

delay  duratiQn(cQnstants__PKG.meanJstars_processing_delay);-temporary;use  mean  &  deviation  to 

-calculate  delay(see  constants_PKG) 

end  jstars jprocessingdelay; 


procedure  jstars_transmission_prep_delay  is 
begin 

delay  duration(constants_PKG.meanjstars_transmission_prep_delay);-ten^raiy;use  mean  &  deviation 

—to  calculate  delay(see 

-constants_PKG) 


end  jstars_transmission_prep__delay; 


procedure  jstars_error  is 
begin 

null;  -insert  simulated  errors 

endjstars_error; 


procedure  jstaisop  (emission_str :  target_emitter_array_PKG.target_emitter_array; 
gui_in_str :  my_unit_PKG.my_unit; 
target_arrayl_str :  out  jstars_array_PKG.jstars_aiTay)  is 
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begin 


piit_line("JSTARS  receiving  radar  reflections,  resolving  duplications,  and  transmitting  video..."); 
forrow_xin  constants_PKG.min_array..constants__PKG.max_aiTay  loop 


for  column_3r  in  oonstants_PKG.min_airay..constants_PKG.max_aiTay  loop 


—  one  for  one  copy  of  into  out  in  this  abstraction 
farget_arrayl_str(rowx,colunm_y).targetdass:= 
emission_str(row_j^column_y)-^3^®td®ss; 

end  loop; 
end  loop; 

-THESE  ARE  PLACEHOLDERS;  USE/MODIFY  AS  NEEDED 
-jstars_operator_delay; 

-jstars_j)rocessing_delay» 

-jstarsJransmissionjjrepdelay; 

-jstars^error; 


endjstais_op; 

endjstars_op_PKG; 
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atacmsJanl_link_op.a 


-filename:  atacms.lanljink^op.a 

-  Authors:  Maj  George  Whitbeck  and  LCDR  David  Angrisani 

-  Dale:  6  Aug  96;modified  04  Sqj  96 

-  Project:  Thesis  -  A  CAPS  Protore  of  the  ATACMS  C3  System 
-Purpose: 

-this  comm  link  will  pass  on  90%  oftraflSc  and  corrupt  10% 


-to  compile  type...  ada atacnis.lanl_link_op.a 


with  text_io;  use  text_io; 
with  globaljrandom_PKG; 
with  gmd_stat_mod_array_PKG; 
with  CQnstants_PKC^ 

package  lanl_link_op_PKG  is 

procedure  lanl_link_op 

(target_array3_str :  in  grnd_stat_mod_array_PKG.gmd_stat_mod_arra)r, 
target_array4_str :  out  gmd_stat_mod_array_PKG.gmd_stat_mod_array  ); 

end  lanl_link_op_PKG; 


package  body  lanl_link_op_PKG  is 

procedure  lanl_link_processing_deIay  is 
begin 

delay  duration(constants_PKG.mean_lanl_link_processing_delay);-tempQrary;use  mean  &  deviation  to 

-calculate  delay(see  constants__PKG) 

end  lanl_Iink_processmg_delay; 


procedure  lanl_link__transmissionjprep_delay  is 
begin 

delay  duration(constants_PKG.mean_lanl_Iinkjtransmission_prep_delay);-temporary;use  mean  & 


end  Ianl_liidc_traiisinission_prep_delay; 


-deviation  to  calculate 
-delay(see  constants_PKG) 


procedure  lanl_link_op 

(target_array3_str :  in  gmd_stat_mod_array_PKG.grad_stat_mod_array; 
target_array4_str :  out  gmd_stat_mod__aiTay_PKG.gmd_stat_mod_array)  is 

package  flt_io  is  new  float_io(float); 
use  flt_io; 

my_randora :  float  :=  0.0; 


begin 

— put_line("Now  in  procedure  'Ianl_link_op’”); 

-put(’’Good  xmission  so  far? ...  "); 

-constants_PKG.bool_io.put(target_array3_str(constants_PKG.min_array, 
-  constants_PKG.min_array).good_xmission);  newline; 


-  a  direct  copy  of  the  array  of  records 
target_array4str  :=  targetarraySstr, 

—  below  is  a  way  to  simulate  fiiction 
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my^random  global j^d(>m_PKG.fln_gIobal_random; 

if  myjrandom  >  coiistants_PKG.crashjrate  then  —  simulate  cnish,put  flag  in  first  position 

target_anay4_str(constants_PKG.min_array,cQnstants_PKG.min_array).good_xmission 
:=  false; 

— put_Iine(”Still  in  procedure  lanl^link^op'  crash  occured”); 

end  if, 

-THIS  SIMULATES  THE  LATENCY  FROM  THE  GROUND  STATION  MODULE  TO  AS  AS 
delay  1.0; 


-THESE  ARE  PLACEHOLDERS;  USE  MODIFY  AS  NEEDED 
-lanl_linkjprocessing_delay; 

— lanl_link_transmission_prep_delay; 

end  lanl_link._op; 

end  lanl_Iinlc_op_PKG; 
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atacms.lan2_link_op.a 


-filename:  atacms.Ian2_IiDk_op.a 


-  Authors:  Maj  George  Whitbeck  and  LCDR  David  Angrisani 

-  Date:  6  Aug  96;mod  04  Sep  96 

-  Project:  Thesis  -  A  CAPS  Prototype  of  the  ATACMS  C3  System 

-  Purpose:  This  comm  link  will  now  just  pass  on  the  data  and  corrupt  10%  of  it 

-  to  compile...  ada  atacms.Ian2__link_op.a 
with  text  Jo;  use  text  Jo; 

with  taiget_data_PKG;  -  to  instantiate  my  record  structure 
with  globaI_randQm_PKG;  —  a  function  to  get  a  random  number 
with  constants_PKG; 

package  Ian2_link_op_PKG  is 

procedure  lan2_liDJc_op  (fire_cmdl_str :  intarget_data_PKG.target_data; 

fire_cmd2_str :  outtarget_data_PKG.target_data ); 
end  lan2_link_op_PKG; 


package  body  lan2_link_op_PKG  is 


procedure  Ian2_link_processmg_delay  is 
begin 

delay  duration(cQnstants_PKG.meanJan2  Jink_processing_delay);— ten:^orary;use  mean  &  deviation  to 

-calculate  delay(see  constants^PKG^) 

end  lan2  Jmk_processing_dela5^ 

procedure  lan2_linkJransmission_prep_deIay  is 
begin 

delay  duration(cQnstants_PKG.meanJan2_linkJransmission_j)rqp_delay);— temporary;use  mean  & 

—deviation  to  calculate 
-delay(see  constants_PKG) 

end  lan2_linkJransmission_prep_deIa5r, 


procedure  Ian2_link_op  (fire_cmdl_str :  in  target_data_PKG.target_data; 
fire_cmd2_str :  outtarget_data_PKG.target_data)  is 

package  fit  Jo  is  new  float Jo(fIoat); 
use  fit  Jo; 

my_random :  float  :=  0.0; 


begin 


-put_line("Now  in  procedure  'lan2_link_op”'); 

-  a  direct  copy  of  record 
fire_cmd2str  :=  fire_cmdi_str. 


-  below  is  a  way  to  simulate  fiiction 

-  95%  of  the  time,  everything  will  be  fine. 
my_random  :=  global_random_PKG.fln_globaljrandom; 

if  my_random  >  constants_PKG.crash_rate  then  -  set  flag 
fire_cmd2_str.good_xmission  :=  false; 

— put Jinef'Still  in  procedure  1an2 Jink  op'  ...  crash  occured"); 

end  if. 
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-THIS  SIMULATES  THE  LATENCY  FROM  THE  AS  AS  TO  CTOC 
delay  1.0; 

-THESE  ARE  PLACEHOLDERS;  USE/MODIFY  AS  NECESSARY 
-lan2_linkj>rocessing_delay; 

-Ian2_lmk_transmissionjire^ 


end  lan2_link_op; 
end  lan2_link_op_PKG; 
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atacms.iny_unit.a 


-  file:  ataciiis.my_uiiita 

~  Authors:  Msy  George  Whitbeck  and  LCDR  David  Angrisani 
“  Date:  6  Aug  96 

-  Project:  Thesis  -  A  CAPS  Prototype  of  the  ATACMS  C3  System 

-  Purpose:  This  file  specifies  a  type  which  closely  matches  strings  read  fi'om  a  TAE 

-  input  panel. 

-  compile  with...  ada  atacms.my_unita 


withtextIO; 
package  my_unit__PKG  is 


type  my  unit  is  (Pause,  Go,  Add_Target,  Quit); 
package  my_unit_IO  is 

new  text_IO.Enumeration_IO(Enum  =>  my_unit); 
end  my_unit__PKG; 
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atacms.pan  gui  in  b.a 


—  filename:  atacms.pan_gui_m_b.a 

—  Authors:  Maj  George  Whhbeck  and  LCDR  David  Angrisani 
-Date:  6  Aug  96 

-  Project:  Thesis  -  A  CAPS  Prototype  of  the  ATACMS  C3  System 

—  Purpose:  See  comments  between  merge  notes  below 

-  ♦**  TAB  Plus  Code  Generator  version  V5.3  [Merge  Token:  DO  NOT  DELETE.] 

—  *♦*  File:  pan_jgui_in_b.a 

-  ♦**  Generated:  Jul  30  13:48:56  1996 

_  ***«**««««**««««***««*#»a:****M3|t«*«««»*«a::a:>«**«****«;«**»««4t«««*«»*««*4t#»»a; 

-  ♦ 

-  ♦  Panel_gui_in  -Package BODY 

—  * 

_  ***********************^********i$i**^**t*t:i^****t********ilit*,^*************** 

with  TAE;  use  TAE; 
withTextJO; 
with  Global; 

-  One  "with"  statement  for  each  connected  panel. 

-  MERGE  NOTE:  Add  additional  "with"s  BELOW  this  line. 

-  modified  by  GSW  on  7/30/96 

-  file:  "atacms.pan^gui  in  b.a" 

-  my  mods  are  noted  by  "-####"  below 

-this  files  has  an  if  statement  added  in  the  event  handler  and  a  few 

-  with  statements 

ff  ffllll 

■ '  ft 

with  my_unit_PKG;  —  provides  the  type  for  the  input  event 
with  choose_iiq)uts_PKG; 

-  MERGE  NOTE:  Add  additional  "with"s  ABOVE  this  line, 
package  body  Panel_gui_in  is 

-I  NOTES: 

-|  For  each  parameter  that  you  have  defined  to  be  "event-generating"  in 
-|  this  panel,  there  is  an  event  handler  procedure  below.  Each  handler 
— I  has  a  name  that  is  a  concatenation  of  the  parameter  name  and  "_Event". 

-|  Add  application-dependent  logic  to  each  event  handler.  (As  generated 
— I  by  the  WoikBench,  each  event  handler  singly  logs  the  occurrence  of 
-|  the  event) 

H 

— I  For  best  automatic  code  merging  results,  you  should  put  as  many 
-|  modifications  as  possible  between  the  lines  of  the  MERGE  NOTE  comments. 

-I  Modifications  outside  the  MERGE  NOTEs  will  often  merge  correctly,  but 
— I  must  sometimes  be  merged  by  hand.  If  the  modifications  cannot  be 
— I  automatically  merged,  a  reject  file  (*.rej)  will  be  generated  which 
— I  will  contain  your  modifications. 

H 

-I  REGENERATED: 

— I  The  ft>llowing  WorkBench  operations  will  cause  regeneration  of  this  file: 

-|  The  panel's  name  is  changed  (not  title) 

— I  For  panel:  gui_in 

H 

— I  The  following  WoikBench  operations  will  also  cause  regeneration: 

— I  An  item  is  deleted 

-|  Anew  item  is  added  to  this  panel 

-j  An  item's  name  is  changed  (not  title) 

— I  An  item's  data  type  is  changed 

— [  An  item's  generates  events  flag  is  changed 

—I  An  item's  valids  changed  (if  item  is  type  string  and  connected) 

-|  An  item's  connection  information  changed 
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~|  For  the  panel  items: 

-|  choose_inputs,  header 

-I 

-I  CHANGE  LOG: 

H  MERGE  NOTE:  Add  Change  Log  entries  BELOW  this  line. 
30^ul-96  TAE  Generated 

“I  MERGE  NOTE:  Add  Change  Log  entries  ABOVE  thk  line 


~  MERGE  NOTE:  Add  additional  code  BELOW  this  line. 
--  MERGE  NOTE:  Add  additional  code  ABOVE  this  line. 


Initialize_Panel  —  Subprogram  BODY 


procedure  Initialize_Panel 
(  Collection_Read 
:  in  TAE.Tae_Co.Collection_Ptr  )  is 

H  NOTES:  (none) 

—  MERGE  NOTE:  Add  declarations  for  Initiali2e_Panel  BELOW  this  line. 
--  MERGE  NOTE:  Add  declarations  for  Initialize_Panel  ABOVE  this  line. 

begin  -  Initialize_Panel 

Info  :=  new  TAE.Tae_WptEvent_Context; 

Info.Collection  :=  Collection_Read; 

TAE.Tae_Co.Co_Fmd  (Info.Collection,  "gui_in_v".  Info. View); 
TAE.Tae__Co.Co__Find  (Info.Collection,  "gui_m_t",  Info.Target); 

—  MERGE  NOTE:  Add  code  for  Initialize^Panel  BELOW  this  line. 

—  MERGE  NOTE:  Add  code  for  Initiali2e_Panel  ABOVE  this  line. 

exception 

when  TAE.UNINnTALIZED_PTR  => 

Text  IO.Put  Line  ("Panel _gui  in.Initialize_Panel:  " 

&  "Collection_Re^  not  initialized."); 
raise; 

when  TAE.Tae_Co.NO_SUCH_MEMBER  -> 

TextJO.Put_Lme  ("Panel_j;ui_in.hiitiali2e_Panel:  " 

&  "(View  or  Target)  not  in  Collection."); 
raise; 

end  Initialize_Panel; 
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Create  Panel 


-  Subprogram  BODY 


procedure  Create_Panel 
(  Panel_State 

:  in  TAE.Tae_WptWpt_FIag5 
:=  TAE.Tae^WptWPT_PREFERRED; 

Relative_Window 
:  in  X_Windows.  Window 
:=  X_Windows.NuIl_Window  )  is 

^  NOTES:  (none) 

-  MERGE  NOTE:  Add  declarations  for  Create_Panel  BELOW  this  line. 

-  MERGE  NOTE:  Add  declarations  for  Create_Panel  ABOVE  this  line. 

begin  -  Creale_Panel 

if  Info.Panel Jd  -  Tae.Null_Panel_Id  then 
TAE.Tae_WptWpt_NewPanel 
(  Display_ld  =>  GlobaI.Default_Display__Id, 

Data__Vm  =>  Info.Target, 

View_Vm  =>  hifo.View, 

Relative_Window  =>  Relative_Window, 

User_Context  =>  Info, 

Flags  =>  Panel_Stale, 

Panel  Jd  =>  Info.Panel  Id  ); 

else 

Text  JO.Put_Line  ("Panel  (gui_in)  is  already  diq)layed."); 
end  if, 

-  MERGE  NOTE:  Add  code  for  Create_Panel  BELOW  this  line. 

-  MERGE  NOTE:  Add  code  for  Create  Panel  ABOVE  this  line. 

exception 

viiien  TAE.UNINrnALIZED_PTR  => 

TextJO.Put_Line  ("Panel^gui  in.  Create  Panel:  " 

&  "Panel  was  not  initialized  prior  to  creation"); 
raise; 

vriien  TAE.TAE JAIL  => 

TextJO.PutJine  ("Panel_gui_inCreate Janel:  " 

&  "Panel  could  not  be  created"); 
raise; 

end  Create  Janel; 
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Connect  Panel 


-  Subprogram  BODY 


procedure  ConnectPanel 
(  Panel_State 

:  in  TAE.Tae_WptWpt_Flags 

TAE.Tae_WptWPT_PREFERRED; 

RelativeWindow 
:  in  X_Windows.  Window 
:=  X_Windows.NulI_Window  )  is 

— I  NOTES:  (none) 

-  MERGE  NOTE:  Add  declarations  for  Connect_Panel  BELOW  this  line. 

-  MERGE  NOTE:  Add  declarations  for  Connect  Panel  ABOVE  this  line. 

begin  -  Connect_Panel 

if  Info.PanelJd  =  Tae.Null_Panel_Id  then 
Create_Panel 

(  RelativeWindow  =>  ReIative_Window, 

Panel_State  =>  Panel_State  ); 
else 

TAE.Tae_WptWpt_SetPanelState  (Info.Panel_Id,  Panel_State); 
end  if; 

—  MERGE  NOTE:  Add  code  for  Connect  Panel  BELOW  this  line. 

—  MERGE  NOTE:  Add  code  for  Connect__Panel  ABOVE  thk  line. 

exception 

wiien  TAE.Tae_WptBAD_STATE  => 

Text_IO.Put_Line  ("Panel_gui_in.CQnnect_Panel:  " 

&  "Invalid  panel  state.”); 
raise; 

end  Connect_PaneI; 


124 


Destroy_Panel 


-  Subprogram  BODY 


procedure  Destroy_Panel  is 
-|  NOTES:  (none) 

—  MERGE  NOTE:  Add  declarations  for  Destroy  Panel  BELOW  this  line. 

—  MERGE  NOTE:  Add  declarations  for  Destroy_Panel  ABOVE  this  line. 

begin  ~  Destroy_Panel 

TAE.Tae_WptWpt_PanelErase(Info.PanelJd); 

—  MERGE  NOTE:  Add  code  for  Destroy_Panel  BELOW  this  line. 

~  MERGE  NOTE:  Add  code  for  Destioy__Panel  ABOVE  this  line. 

exception 

\vhen  TAE.Tae_WptBAD_PANEL_ID  => 

Text^IO.Put  Line ("Panel _gui_in.Destroy_Panel:  " 

&  "Info.Panel_Id  is  an  invalid  id."); 
raise; 

TAE.Tae_WptERASE_NULL_PANEL  => 

—  This  panel  has  not  been  created  yet,  or  has  alieacfy  been  destroyed. 

—  Trap  this  exception  and  do  nothing, 
null; 

end  Destroy_Panel; 
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—H-i-f-l  M  I  [  M  I  I  !  I  f-H-l  I  {  I  I  I  [+++f-l-{  I  M  I  I  I  M  I  I  f-i  H  1  it  I ++++++-1-1  4-1- f 

^  begin  EVENT  HANDLERS 


-  .  choose__ii:5)uts_Event  -  Subprogram  SPEC  &  BODY 


procedure  choose_mputs_Event 
( Info  :  in  TAE.Tae_WptEvent_Context_Ptr  )  is 

H  PURPOSE: 

“I  EVENT  HANDLER.  Insert  application  specific  information. 

“I 

~|  NOTES:  (none) 

Value :  array  (1..1)  of  String  (l..TAE,Tae__Taeconf.STRINGSIZE); 

Count :  TAE-Taeint; 

--  MERGE  NOTE:  Add  declarations  BELOW  this  line  for  parm:  choose__iiiputs. 

—  MERGE  NOTE:  Add  declarations  ABOVE  this  line  for  parm:  choose_inputs. 

begin  --  choose_iiq)uts_Event 

TAE.Tae^Vm.  Vm_Extract_Count  (Info.Parm_Ptr,  Count); 
if  Count  >0  then 

TAE.Tae_Vm.Vm_Extract_SVAL  (Info.Pann__Ptr,  1,  Value(I)); 
end  if, 

—  MERGE  NOTE:  Add  code  BELOW  this  line  for  parm:  choose_ii^uts. 

-  There  are  4  possible  input  choices...  Run,  Pause,  Add  5  Targets,  or  Quit 

—  Text_IO.put_line("....in  pan_gui_in...."); 

-  begin  running  or  restarting  the  prototype 
if  (tae_misc.s_equal(value(l),  "Run"))  then 

Text  JO.put_line(’TJser  selected  ’Run"’); 
choose_inputs_PKG.record_input(my_unit_PKG.Go); 

~  pause  nmning  the  prototype 
elsif  (tae_niisc.s_equal(value(l),  "Pause"))  then 
Text_IO.put_line("User  selected  Tause'"); 
choose_ii^uts_PKG.record_ii:q)ut(my_unit_PKG.Pause); 

—  add  targets  to  the  target  array 

elsif  (tae_inisc.s_eq[ual(value(l),  "Add  Targets"))  then 
Text_IO.put_line('TJser  select^  'Add  Targets'"); 
choose_ii^uts_PKG.record_input(my_unit_PKG.Add_Target); 


elsif  (tae_misc.s_equal(value(l),  "Quit"))  then 
Text_IO.put_line("User  selected  'Quit',  program  shutting  down..."); 
globaI.Set_Application_Done;  -  This  will  set  a  "done"  flag  to  true 
choose_inputs_PKG.record_input(my_irait_PKG.Quit); 

else 

Text_IO.Put_line("Error  in  atacms.pan_gui_in_b.a,  unknown  selection"); 
end  if. 


—  MERGE  NOTE:  Add  code  ABOVE  this  line  for  parm:  choose_inputs. 
end  choose_inputs_Event; 
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header  Event 


•  Subprogram  SPEC  &  BODY 


procedure  header__Event 
( hifo  :  in TAE.Tae_WptEvent_Coiitext_Ptr )  is 

H  PURPOSE: 

— I  EVENT  HANDLER.  Insert  application  specific  information. 

“I 

-I  NOTES:  (none) 

Value :  array  (1..1)  of  String  (l..TAE.Tae_TaecQnfSTRINGSIZE); 
Count :  TAE.Taeint; 

“  MERGE  NOTE:  Add  declarations  BELOW  this  line  for  parm:  header. 

—  MERGE  NOTE:  Add  declarations  ABOVE  this  line  Rmt  parm:  header. 

begin  --  header_Event 

TAE.Tae_Vm.Vm_Extract_Count  (Info.Parm_Ptr,  Count); 
if  Count  >0  then 

TAE.Tae_Vm.Vm_Extract_SVAL  (Iafo.Parm_Ptr,  1,  Value(l)); 
end  if, 

—  MERGE  NOTE:  Add  code  BELOW  this  line  for  parm:  header. 

—  MERGE  NOTE:  Add  code  ABOVE  this  line  for  parm:  header. 

end  header_Even^ 
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-  end  EVENT  HANDLERS 


—  .  Dispatch_Item  —  Subprogram  BODY 


procedure  Dispatch_Item 

(  User_Context_Ptr :  in  TAE.Tae_WptEvent_Context_Ptr  )  is 
H  NOTES:  (none) 
begin  —  Dispatch_Ilem 

if  TAE.Tae_Misc.s_equal  (’'choose_inputs",  User_Context_Pfa*.Parm_Name)thett 
choose_inputs_Event  (lJser_Context_Ptr); 

elsif  TAE.Tae__Misc.s_equal  ("header”,  User_Context_Ptr.Pann_Name)  then 
header_Event  (User_Context_Ptr); 
endi^ 

end  Dispatch  Jtem; 


-  MERGE  NOTE:  Add  additional  code  BELOW  this  line. 

-  MERGE  NOTE:  Add  additional  code  ABOVE  this  line. 

end  Panel_gui_in; 
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atacms.pan  gui  in_s.a 


-  filename:  atacms,pan_gui_in_s.a 

-  Aiithors:  Maj  George  Whilbeck  and  LXDDR  David  Angrisani 
-Date:  6  Aug 96 

-  Project:  Thesis  -  A  CAPS  Prototype  ofthe  ATACMS  C3  System 
-Purpose: 

-  **♦  TAE  Plus  Code  Generator  version  V5.3  [Merge  Token:  DO  NOT  DELETE.] 

-  File:  pan__guijn_s.a 

-  **♦  Generated:  Jul  30  13:48:56  1996 

_  *************************************************i^ittiHt**************t****** 

-  ♦ 

-  *  Panel_gui_in  -Package SPEC 

—  * 


with  TAE; 
withXWindows; 

package  Panel_gui_in  is 

-I  PURPOSE: 

-|  This  package  encapsulates  the  TAE  Plus  panel:  gui_in 

-|  These  subprograms  enable  panel  initialization,  creation,  destruction, 

-|  and  event  dispatching.  For  more  advanced  manipulation  ofthe  panel 
-j  using  the  TAE  package,  the  panel's  Event_CQntext  (Info)  is  provided. 

-|  It  includes  the  Target  and  View  (available  after  initialization) 

-|  and  the  Paneljd  (available  after  creation). 

H 

-I  INITIALIZATION  EXCEPTIONS:  (none) 

“I 

-|  NOTES:  (none) 

H 

-I  REGENERATED: 

-|  The  following  Workbench  operations  will  cause  regeneration  of  this  file: 
-|  The  panel's  name  is  dianged  (not  title) 

-[For panel:  gui_in 

H 

-I  CHANGE  LOG: 

-|  30-Jul-96  TAE  Generated 


Info :  TAE.Tae_WptEvent_Context_Ptr,  -  panel  information 


-  .  Initialize_Panel  -  Subprogram  SPEC 


procedure  Initialize_Panel 

(  Coliection_Read  -  TAE  Collection  read  from 

:  in  TAE.Tae_Co.Collection_Ptr  );  —  resource  file 

-I  PURPOSE: 

-j  This  procedure  initializes  the  Info.Target  and  Info. View  for  this  panel 

~i 

-I  EXCEPTIONS: 

— I  TAE.UNINITIALIZED_PTR  is  raised  if  Collection_Read  not  initialized 
H  TAE.Tae__Co.NO_SUCH_MEMBER  is  raised  if  the  panel  is  not  in 
-|  Collection_Read 

“I 

-|  NOTES:  (none) 
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-  Subprogram  SPEC 


~  .  Create_Panel 


procedure  Create_Panel 

( Panel_State  -  Flags  sent  to  Wpt_NewPanel. 

:  in  TAE.Tae  WptWpt  Flags 

TAE.Tae_WptWPT_PREFERM;D; 

Relative_Window  -  Panel  origin  is  ofi&et  from 

:  in  X_Windows.  Window  ~  this  X  Window.  Null_Window 

X_Windows.Null__Window );  —  uses  the  root  window. 

H  PURPOSE: 

~|  This  procedure  creates  this  panel  object  in  the  specified  Panel_State 
-I  and  stores  the  panel  Id  in  Lifo.PanelJd 

H 

H  EXCEPTIONS: 

-|  TAE.UNINITIALIZEDPTR  is  raised  if  the  panel  is  not  initialized 
~j  TAE.TAE_FAIL  is  raised  if  the  panel  could  not  be  created 

“I 

~|  NOTES:  (none) 


Connect  Panel 


■  Subprogram  SPEC 


procedure  Connect_Panel 
(  Panel_State 

:  in  TAE.Tae_WptWpt_Flags 
:=  TAE.Tae_WptWPT_PREFERRED; 

Relative_Window  —  Panel  origin  is  of^t  from 

:  in  X_Windows.  Window  -  this  X  Window.  Null__Window 

:=  X_Windows.NuU_Window  );  —  uses  the  root  window. 

-I  PURPOSE: 

“I  If  this  panel  doesn't  exist,  this  procedure  creates  this  panel  object 
— I  in  the  specifiec  Panel_State  and  stores  the  panel  Id  in 
~|  Info.PanelJcL 

“I  If  this  panel  does  exist,  it  is  set  to  the  specified  Panel_State. 

-|  In  this  case,  Relative_Window  is  ignored. 

H 

-I  EXCEPTIONS: 

—j  TAE.UNIN  f  ll  ALIZED_PTR  is  raised  finm  Q’eate_Panel  if  the  panel  is 
“I  not  initialized 

~|  TAE.TAE^FADL  is  raised  from  CreatePanel  if  the  panel  could  not  be 
“1  created 

-j  TAE.Tae_WptBAD_STATE  is  raised  if  the  panel  exists  and  the 
~|  Panel_State  is  an  invalid  state 

H 

~|  NOTES:  (none) 


Destroy__Panel 


-  Subprogram  SPEC 


procedure  Destroy_Panel; 

-[PURPOSE: 

— I  This  procedure  erases  a  panel  from  the  screen  and  de-aliocates  the 
— I  associated  panel  object  (not  the  target  and  view). 

“I 

-[EXCEPTIONS: 

-I  TAE.Tae_WptBAD_PANEL_ID  is  raised  if  Info.Panel  ld  is  an  invalid  id. 
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H 

H  NOTES: 

~i  Mo-Panel  Jd  is  set  to  TAE.NULL_PANEL_ID,  and  should  not  referenced 
~|  in  any  Wpt  call  until  it  is  created  again. 


Dispatch Jtem 


-  Subprogram  SPEC 


procedure  Dispatdi  Item 

( User_Context_Ptr  -  Wpt  Event  Context  for  a  PARM 

:  in  TAE.Tae_WptEvent_Context_Ptr  );  -  event 

-1  PURPOSE: 

-\  This  procedure  calls  the  Event  Handler  specified  by  User_CQntext_Ptr 

-I 

H  EXCEPTIONS: 

— I  Application-specific 

-I 

~|  NOTES:  (none) 
end  Panel_^i_in; 
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atacms.scdl_link_op.a 


-  filename:  atacms.scdl_link_op.a 


-  Authors:  Maj  George  Whitbeck  and  LCDR  David  Ai^risani 

-  Date:  6  Aug  96;modified  04  Sep  96 

-  Project:  Thesis  -  A  CAPS  Prototj^e  of  the  ATACMS  C3  System 

-  Purpose:  This  comm  link  will  pass  on  90%  of  traffic  and  corrupt  10%  due  to 

simulated  friction 

—to  compile  type...  ada  atacms.scdl_link_op.a 

withtext_io;  usetext_io; 
with  global_random_PKG; 
withjstars_array_PKG; 
with  constants_PKG; 

package  scdl_link_op_PKG  is 

procedure  scdl_link_op 

(target_arrayl_str :  in  jstars_array_PKG.jstars__array; 
target_array2_str :  out  jstars_array__PKG.jstars__array  ); 

end  scdl Jink_op_PKG; 


package  body  scdl_link__op_PKG  is 

procedure  scdl_link_processing_deIay  is 
begin 

delay  duration(constants_PKG.mean_scdl_link_processing__delay);-temporary;use  mean  &  deviation  to 

-calculate  delay(see  constants_PKG) 

end  scdl_iink_processing_delay. 


procedure  scdl_link_transmission_prep_deIay  is 
begin 

delay  duration(constants_PKG.mean_scdl_link_transmission_prep_delay);-temporary;use  mean  & 


end  scdl_link_transinission_prep_deIay; 


—deviation  to  calculate 
-delay(see  constants_PKG) 


procedure  scdl_link_op 

(target_aiTayl_str :  in  jstars_aiTay_PKGjstars_aiTay; 
target_anay2_str :  out  jstars_array_PKG.jstars  array)  is 

package  flt_io  is  new  float_io(float); 
use  fIt_io; 

my_randQm :  float  :=  0.0; 


begin 

-put_line("Now  in  procedure  'scdl_link_op’"); 

-put("Good  xmission  so  Jfer? ...  "); 

-constants_PKG.booWo.put(target__arrayl_str(constants_PKG.min_array, 
-  constants_PKG.min_array).good_xmission);  new_line; 


-  adirectcopy  of  the  array  of  records 
target__array2_str  :=  target_aiTayl_str, 

—  below  is  simulated  error,  error  types  not  defined 
myrandom  :=  globaI_random_PKG.fln_global_random; 

if  myrandom  >  constants_PKG.crash_rate  then  -  set  flag 

target_array2_str(constants_PKG.min_array,constants_PKG.min_anay).good_xmission:=false; 
-put_line("StiU  in  procedure  'scdl  link_op'  ...  crash  occured"); 

end  if. 
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-THIS  SIMULATES  THE  LATENCY  FROM  JSTARS  TO  THE  GROUND  STATION  MODULE 
delay  3.0; 

-THESE  ARE  PLACEHOLDERS;  USE/MODIFY  AS  NEEDED 
-^sailJink_processmg_delay; 

-scdlJUnkJraiJsmission_jirep_delay; 

end  scdl_Iink_op; 

end  scdllink_op_PKG; 
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atacins.shooter_op.a 


-  filename:  atacnis.sliooter_op.a 

-  Authors:  Maj  George  Whitbeck  and  LCDR  David  Angrisani 
~  Date:  6  Aug  96;  modified  04  Sep  96 

-  Project:  Thesis  -  A  CAPS  Prototype  of  the  ATACMS  C3  System 

-  Purpose:  This  package  simulates  the  operations  of  the  ground 

-  Command  Station 

-to  compile...  ada  atacms.shooter__op.a 


with  text  Jo;  use  text_io; 
with  target__data_PKG; 
with  constants_PKG; 

package  shooter_op_PKG  is 

procedure  shooter_op  (fire_cmd4_str :  target_data_PKG.target_data; 
gui_out_str  :  outtarget_data_PKG.target_dala); 

end  shooter_op_PKG; 


package  body  shooter_op_PKG  is 


procedure  shooter_operator_delay  is 
begin 

delay  duration(coiistants_PKG.mean_shooter_operator_delay);  — tecnporary;use  mean  &  deviation 

—to  calculate  delay 
-(see  cQnstants_PKG) 

end  shooter_operator_dela)r, 

procedure  shooter_processing_delay  is 
begin 

delay  duration(constants_PKG.mean_shooter_processing_delay);-ten[q)Qrary;use  mean  &  deviation 

—to  calculate  delay(see 
-constants_PKG) 

end  shooter_processing_delay; 

procedure  shooter_transmission_prep_delay  is 
begin 

delay  duration(constants_PKG.mean_shooter Jransmission_j)rep_deIay);— temporary;use  mean  & 

-deviation  to  calculate 
-delay(see  constantsJPKG) 

end  shooter Jransmission_j)rep_delay; 

procedure  shooter_error  is 
begin 

null;  -insert  simulated  errors 

end  shooter_error. 


procedure  shooter_op  (fire_cmd4_str :  target_data_PKG.target_dat^ 
gui_out_str  :  outtarget_data_PKG.target_data)  is 
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put_line("Traasmissioii  received  by  shooter,  sending  data  to  display  panel. 

if  fire_cmd4_str.tgtnum  =  0  then 

pirt_lme("  Just  received  a  communications  check  only.  No  mission 

elsif  fire_cmd4_str.good_xmission  then 

put_line("  Just  received  a  Good  Transmissioa  ”); 
put(’'Mission  successfully  being  fired  at  Target  Number  "); 
constants_PKG.int_io.put(fire_cmd4__str.^_num,0);  new_line; 


else 

put("Detected  a  crash.  Mission  lost  Target  number  ”); 
constants_PKG.int_io.put(fire_cmd4_str.tgt_num,0); 
put("  was  lost”); 

end  if, 

newjine(3); 


gui_out_str  :=  fire_cmd4__str. 


-THESE  ARE  PLACEHOLDERS;  USE/MODIFY  AS  NECESSARY 
-shooter_operator_delay; 

— shooter_processing_delaj^ 

-shooter_transmissiQn_prep_delay, 

“Shooter_eiTor, 


end  shooter_op; 


end  shooter_op_PKG; 


-  target_data_PKG.int_io.put(fire_cmd4_str.easting,0); 


atacins.target_data.a 


-filename:  atacms.target_data.a 

-  Authors:  Maj  George  Whhbeck  and  LCDR  David  Angrisani 

-  Date:  6  Aug  96 

-  Project:  Thesis  -  A  CAPS  Prototype  of  the  ATACMS  C3  System 

-  Purpose: 


-  This  file  is  where  Pd  like  to  declare  my  target  data  record 

-  that  I  will  use  as  a  stream  in  my  thesis 

- 1  avoided  the  use  clause  as  much  as  possible.  Also,  note  naming 

-  convention  here  with  filename,  package  name,  and  type  name! ! ! ! ! 

-  to  just  compile  type...  ada  atacms.taxget_data.a 


withtextio; 

usetext_io; 


package  target_data_PKG  is 

—  to  instantiate  integer  generic 
package  int_io  is  new  integer_io  (integer); 

—  create  enumerated  type  for  artillery  method  of  control 

—  and  allow  i/o 

type  method_cntI_type  is  (WR,  AMC,  DNL,  TOT); 

package  cntl_io  is  newtext_io.enumeratiQn_io(method_cntl_type); 

— to  create  legal  entries  for  the  UTM  coordinate  system 
subtype  east  coord  is  integer  range  0..999_999; 
subtype  north_coord  is  integer  range  0..9_999_999; 
subtype  alt_coord  is  integer  range  -1000..10_000; 

type  target_data  is  record 
taiget_class:  integer:=<); 
easting :  east_coord  :=  0; 
northing :  north_coord  :=  0; 
alt :  alt_coord  :=  0; 
tgt_num :  natural  :=  0; 
tgt  desc  :  string(1..60)  :=  (others  =>  *♦'); 
method_cntl :  method_cntl_type  :=  DNL; 
good_xmission :  boolean  :=  true; 
status :  natural  :=  0; 

end  recorc^ 

end  target_data_PKG; 
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atacms.target_einitter_array.a 


-filename:  atacms.packagetarget_emitter_aiTay.a 

-  Authors:  George  Whitbeck  and  LCDR  David  Angiisani 

-Date:  6  Aug  96 

-  Project:  Thesis  -  A  CAPS  Prototype  of  the  ATACMS  C3  System 

—  Purpose:  This  file  is  vbere  we  declare  an  array  to  simulate  radar 

—  relections  that  we  will  use  as  a  stream  in  our  thesis 


—to  just  conqnletype...  ada  atacms.target_emitter_array.a 

withtext_io; 

use  text_io; 

with  constants_PKG; 

package  target_emitter_array__PKG  is 


—THIS  SECTION  CONTAINS  target_emitter_arTay,  which  is  the  type  for  the 

—  output  stream  for  target_emitter_op  and  the 

—  input  stream  for  jstars_op 

—  to  create  legal  entries  for  the  UTM  coordinate  system 
subtype  east_coord  is  integer  range  0..999_999; 
subtj^  north  coord  is  integer  range  0..9_999_999; 
subtype  alt  coord  is  integer  range  -1000„10_000; 

type  target_emitter_arrayj:ecord  is  record 
target__class:  integer=0; 
easting :  east_coord  :=  0; 
northing :  north  coord  :=  0; 
tgt_num :  natural  :=  0; 
good_xmission :  boolean :-  true; 
status :  natural :-  0; 


end  record; 

■^e  target_emitter_airay  is  array(constants_PKG.min_aiTay..cQnstants_PKG.max_airay, 
cQnstants_PKG.min__array..constants_PKG.max_array) 
of  target_emitter_array_record; 


end  target_emitter_aiTay_PKG; 
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atacms.target_eiiiitter_op.a 


-filename:  alacms.target_emitter_op.a 


-  Authors:  Maj  George  Whitbeck  and  LCDR  David  Angrisani 

-Date:  6  Aug  96 

-  Project:  Thesis  -  A  CAPS  Prototype  of  the  ATACMS  C3  System 

-  Puipose:  This  package  generates  the  target  emmissions  A^ch  will  be 

-  detected  by  file  JSTARS  platform.  This  assigns  information 

-  which  could  be  discerned  fi*om  the  sensor  itself,  in 

-  this  case,  a  target  class  is  assigned. 

-  to  just  compile...  ada  atacms.target__emitter_op.a 


with  text_io;  use  text_io; 

with  target_emitter_aiTay_PKG;  -  to  instantiate  our  array  of  record  type 
with  global  j:andom_PKG; 
with  constants_PKG; 
with  myimitPKG; 

package  target_emitter_op_PKG  is 

procedure  target_emitter_op 

(gui_m_str :  my_unit_PKG.my_unit; 

emission_str  :  outtarget_emitter_array_PKG.target_emitter_array); 
end  target_emitter_op_PKG; 


package  body  target_emitter_op_PKG  is 
-  create  a  sample  emitter  array  to  manipulate 

*“y_target_emitter_aiTay:target_emitter_array_PKG.target_emitter_arTay; 


procedure  target_emitter_op 
(gui_in_str :  my_unit_PKG.my_unit; 

emission_str  :  out  target_emitter_array_PKG.target_emitter_array)  is 


rand_num:  natural:=0;  -  to  determine  to  target  class 
lv_int :  natural; 
row_x :  natural  :=  0; 
column_y :  natural  :=  0; 

begin 


— putC^Now  in  procedure  ‘target_emitter',"); 

lv_int :-  my_unit_PKG.my_unit'pos(gui_in_str); 

-constants_PKG.int_io.put(lv_int,0); 

new_line; 

if  lv_int  =  2  then 

Put  Jine(”Reflections  from  multiple  targets  detected."); 
for  X  in  l..constants_PKG.max_new_tgts  loop 

randnum mteger(100.0*global_random_PKG.fin_global_random); 

row_x  :=  constants_PKG.min_array  +  (integer  (10.0*global_random_PKG.ftn_global_random)); 

column__y  :=  constants_PKG,min_array  +  rand_num/10;  —  avoid  3d  ftn  call,  reuse  rand_num 
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case  laudanum  is 

'wdien  0..50  => 

myJarget_emitter_array(row_x,coIuimi_y).target_class:=  1 ; 
w^en51..60  => 

my_taiget_emitter_array(row_3^coluimi_3r).target_class:=  2; 
61..70  => 

myjaiget_emitter_array(iow_x,colunm_y).target_class:=3; 
when71..80  => 

my_target_emitter_anay(row_x,column3r).target_class:=4; 

wheti81..99=> 

myjtaiget_emitter_arTay(row_x,columa_y).taiget_class:=  5; 
wdien  others  => 
null; 

end  case; 


end  loop; 
end  if, 

emission_str^  my_target_emitter_aiTay,  -  copy  local  array  to  ou^ut  parameter 
end  target_emitter_op; 
end  taiget_eniitter_op_PKG; 

--  put("Now  in  procedure  ’target^emitter',  just  added  a  target  class  of"); 

—  constan[ts_PKG.int_io.put(my_target_emitter_array(row_x,column_y).target_cIass,0); 

-  new  line; 
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APPENDIX  C. 


REFINEMENT  H  GRAPH  AND  PSDL 
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TYPE  grad_stat_mod_array 
SPECIFICATION 
END 

IMPLEMENTATION  ADA  gnid_stat_mod_array 
END 

TYPE  jstars_aiTay 
SPECmCATION 
END 

IMPLEMENTATION  ADA  jstars_array 


OPERATOR  alacms 
SPECIFICATION 
STATES 

gui_in_str :  my^unit 
INITIALLY 
pause 
END 

IMPLEMENTATION 

GRAPH 

VERTEX  acus_op :  50  MS 


VERTEX  cnr_link_op :  50  MS 


END 

TYPE  my_unit 
SPECIFICATION 
OPERATOR  pause 
SPECIFICATION 
OUTPUT 
X :  my^unit 
END 
END 

IMPLEMENTATION  ADAmy^unit 
END 


VERTEX  command_station_op 
VERTEX  grcs^op :  500  MS 
VERTEX  gui_m 
VERTEX  guiout 
VERTEX  jstars_op  :  500  MS 
VERTEX  rivetJomt_op :  500  MS 
VERTEX  scdl^link^op  :  50  MS 


TYPE  targetdata 
SPECinCATION 
END 

IMPLEMENTATION  ADAtargetdata 
END 


VERTEX  shooter_op  :  50  MS 
VERTEX  target_eniitter :  500  MS 
VERTEXtibs_op:50MS 


TYPE  target_emitter_array 
SPECIFICATION 
END 

IMPLEMENTATION  ADAtarget_emitter_array 
END 


VERTEX  tracIcwolf_op :  500  MS 

VERTEX  uav^op :  500  MS 

EDGE  Target_arrayl_str 
jstars_op  -> 
scdllinkop 


OPERATOR  acus_op 
SPECinCATION 
INPUT 

tnvolfl_str :  UNDEFINED_TYPE_NAME 
OUTPUT 

trwoIf2_str :  UNDEFINEb_TYPE_NAME 
MAXIMUM  EXECUTION  TIME  50  MS 
END 

OPERATOR  asasop 
SPECinCATION 
INPUT 

grcs Jan2_str :  UNDEFINED__TYPE_NAME, 
gui_m_str :  my_unit, 
taiget_array4_str :  grad_stat_inod_array, 
tibs4_str :  UNDEFINED_TYPE_NAME 
OUTPUT 

asas_outl_str :  UNDEFINED_TYPE_NAME, 
fire_cmdl_str :  target_data 
MAXIMUM  EXECUTION  TIME  200  MS 
END 

IMPLEMENTATION  ADA  asas_op 
END 


EDGE  emissionjstr 
target_emitter  -> 
trackwol^op 

EDGE  emission_str 
target_emitter  -> 
grcs_op 

EDGE  eraission_str 
target_emitter  -> 
rivetjoiiit_op 

EDGE  emissionjstr 
target_emitter  -> 
jstarSjOp 

EDGE  fire_cmd3_str 
command jStation_op  -> 
cnr_IinkjOp 

EDGE  fire_cmd4 jStr 
cnr_link_op  -> 
shooter_op 

EDGE  grcSjStr 

grcSjOp  -> 

command_station_op 


145 


EDGE  gui^instr 
gui_m  «> 
iiav_op 

EDGE  gui_m__str 
gui^in  -> 
rivetJoint_op 

EDGE  gui_in_str 
gui_in  -> 
grcs_op 

EDGE  gui_in_str 
gui_in  -> 
traclcwolf_op 

EDGE  gui_m_str 
gui_in  -> 
targetemitter 

EDGE  gui Jn_str 
gui_in  -> 
jstars_op 

EDGE  guiinstr 
gui_in  -> 

CQmmand_station_op 

EDGE  guioiitstr 
shooter_op  -> 
gui_out 

EDGE  target_array2_str 
scdl_Iink_op  -> 
coimnand_station_op 

EDGE  tibsl_str 
rivetJoint_op  -> 
tibs_op 

EDGE  tibs2_str 
tibs_op  -> 

coimnand_station_op 

EDGE  trwolfl^str 
trackwolJ^op  -> 
acus_op 

EDGE  trwoIf2_str 
acus_op-> 
commaiid_station_op 

EDGE  iiav_str 
uav_op  -> 

conimand_statiQn_op 
DATA  STREAM 

Target_aiTayl_str :  UNDEFINED_TYPE_NAME, 

emissi(>n_str :  UNDEFINED_TYPE_NAME, 

fire_cmd3_str :  target__data, 

fire_ciiid4_str :  target^data, 

grcs_str :  UNDEFINED_TYPE_NAME, 

gui_oirt_str :  target_data, 

target_array2_str :  jstarsarray, 

tibsl_str :  UNDEFINED_TYPE_NAME, 

tibs2_str :  T;NDEFINED_TYPE^NAME, 

trwolfl_str :  UNDEFINED_TYPE_NAME, 

trwolf2_str :  UNDEFINED_TYPE_NAME, 

uav_str :  UNDEFINED_TYPE_NAME 


CONTROL  CONSTRAINTS 
OPERATOR  acusop 

OPERATOR  cnr_link_op 
TRIGGERED  BY  SOME 
fire_cmd3_str 

OPERATOR  coinmand_statiQn_op 

OPERATOR  grcsop 

OPERATOR  guiin 

OPERATOR  guiout 

OPERATOR  jstarsop 
TRIGGERED  IF 
gui_iii_str  /-  my_umtpause 
PERIOD  8000  MS 

OPERATOR  rivetjointop 

OPERATOR  scdl_link_op 
TRIGGERED  BY  SOME 
target_arrayl_str 

OPERATOR  shooter_op 
TRIGGERED  BY  SOME 
fire_cmd4_str 

OPERATOR  target_emitter 

OPERATOR  tibs_op 

OPERATOR  trackwol^op 

OPERATOR  uavop 
END 

OPERATOR  cgs_op 
SPECIHCATION 
INPUT 

grcs_str :  UNDEFINED_TYPE__NAME, 
uav^str :  UNDEFINED_TYPE_NAME 
OUTPUT 

grcsjan_str :  UNDEFINED^TYPE_NAME 
MAXIMUM  EXECUTION  TIME  50  MS 
END 

OPERATOR  choose_inputs 
SPECmCAHON 
OUTPUT 

gui_in_str :  my_unit 

MAXIMUM  EXECUTION  TIME  200  MS 
END 

IMPLEMENTATION  ADA  choose_ii^uts 
END 

OPERATOR  cmds_oiit 
SPECIHCATION 
INPUT 

gui_out_str :  targetdata 
END 

IMPLEMENTATION  ADA  cmds_out 
END 


146 


OPERATOR  cnrlinkop 
SPECinCATION 
INPUT 

fire_cmd3__str :  target_data 
OUTPUT 

fire_cmd4_str :  target_data 
MAXIMUM  EXECUTION  TIME  50  MS 
END 

IMPLEMENTATION  ADAcnrJink_op 
END 

OPERATOR  cQmmand_station_op 
SPECmCATION 
INPUT 

ffcsjtr :  UNDEFINED_TYPE^NAME, 
gui_iii_str :  myjunit, 
target_anay2_str:  jstars  array, 
tibs2^str :  UNDEF1NED1tYPE_NAME, 
1iwoIf2_str :  UNDEFINED_TYPE__NAME, 
uav_str :  UNDEFINED^TYPE J4AME 
OUTPUT 

firecmdSstr :  targetdata 
END 

IMPLEMENTATION 

GRAPH 

VERTEX  asas_op :  200  MS 

VERTEX  cgs^op  :  50  MS 

VERTEX  ctoc_op :  50  MS 

VERTEX  ctth^op:  50  MS 

VERTEX  gmd_stat_mod_op  :  50  MS 

VERTEX  lanl^link^op  :  50  MS 

VERTEX  laii2_lmk_op  :  50  MS 

EDGE  asas_outl_str 
asas_op-> 
ctth_op 

EDGE  fire_cmdl_str 
asas_op  -> 
lan2_lbk_op 

EDGE  fire_cmd2_str 
lan2_lmk_op  -> 
ctoc_op 

EDGE  fire_cmd3_str 
ctoc_op  -> 

EXTERNAL 

EDGE  grcs_lan2_str 
lanl_liiik_op  -> 
asas_op 

EDGE  grcsjanstr 
cgs_op  -> 
lanl_lmk:_op 

EDGE  grcsstr 
EXTERNAL -> 
cg$_op 


EDGE  guiinstr 
EXTERNAL -> 
asas_op 

EDGE  target_anay2_str 
EXTERNAL -> 
gmd_statjtnod__op 

EDGE  target_array3_str 
gmd_stat_mod_op  -> 
lanllinkop 

EDGE  target__aiTay4_str 
lanl  Jinlc_op  -> 
asas_op 

EDGEtibs2j5tr 
EXTERNAL -> 
ctth_op 

EDGE  tibs3_str 
ctth_op-> 
lanl_link_op 

EDGE  tibs4_str 
Ianl_link__op  -> 
asas_op 

EDGE  trwolf2_str 
EXTERNAL -> 
ctth_op 

EDGE  uavstr 
EXTERNAL -> 
cgs_op 

DATA  STREAM 

asas_outl_str :  UNDEFrNED_TYPE_NAME, 
fire_cmdl_str :  target__data, 
fire_cmd2str :  targetdata, 
grcsjan2_str ;  UNDEFINED_TYPE_NAME, 
grcsjan_str :  UNDEFINED_TYPE_NAME, 
target_array3_str :  gmd_stat_jnod_aiTay, 
target_array4_str :  grad_stat_mod_arTay, 
tibs3_str :  UNDEFINED_TYPE_NAME, 
tibs4_str :  UNDEFINED^TYPE JNAME 
CONTROL  CONSTRAINTS 
OPERATOR  asas_op 
TRIGGERED  IF 
gui_m_str  /=  my_uiiitpause 
PERIOD  4000  MS 

OPERATOR  cgs_op 

OPERATOR  ctocop 
TRIGGERED  BY  SOME 
fire_cmd2_str 

OPERATOR  ctth_op 

OPERATOR  gmd_stat_mod_op 
TRIGGERED  BY  SOME 
target_array2_str 

MAXIMUM  RESPONSE  TIME  5050  MS 

OPERATOR  lanl_link_op 
TRIGGERED  BY  SOME 
target_aiTay3_slr 


147 


OPERATOR  lan2  Jink^op 
TRIGGERED  BY  SOME 
fire_cmdl__str 
END 

OPERATOR  ctoc_op 
SPECinCATION 
INPUT 

fire_cmd2_str :  target_data 
OUTPUT 

fire_cmd3_str :  target_data 
MAXIMUM  EXECUTION  TIME  50  MS 
END 

IMPLEMENTATION  ADA  ctoc_op 
END 

OPERATOR  ctth_op 
SPECinCATION 
INPUT 

asas_outl_slr :  UNDEFINED_TYPE_NAME, 
tibs2_str :  UNDEFINED^TYPE^NAME, 
trwolf2_str :  UNDEFINED_TYPE__NAME 
OUTPUT 

tibs3_str :  UNDEFINED__TYPE_NAME 
MAXIMUM  EXECUTION  TIME  50  MS 
END 

OPERATOR  grcs_op 
SPECinCATION 
INPUT 

emissiQn_str :  UNDEFINED_TYPE_NAME, 
gui_in_str ;  my_unit 
OUTPUT 

grcs_str :  UNDEF[NED^TYPE__NAME 
MAXIMUM  EXECUTION  TIME  500  MS 
END 

OPERATOR  gnid_stat_mod_op 
SPECmCATION 
INPUT 

target_arra.y2_str :  jstars_array 
OUTPUT 

target_aiTay3_str :  grad_stat_mod_a3Tay 
MAXIMUM  EXECUTION  TIME  50  MS 
END 

IMPLEMENTATION  ADA  gmd_statjnod_op 
END 

OPERATOR  gui Jn 
SPECIFICATION 
OUTPUT 

gui_in_str :  my_unit 
END 

IMPLEMENTATION 

GRAPH 

VERTEX  choosejuputs  :  200  MS 

VERTEX  gui_mput_evetit_moiiitor :  200  MS 

EDGE  gui_in_str 
choose_inputs  -> 

EXTERNAL 

CONTROL  CONSTRAINTS 
OPERATOR  choose_mputs 
PERIOD  2000  MS 


OPERATOR  gui_input_event_monitQr 
END 

OPERATOR  gui_iiq)ut_event_momtor 
SPECIFICATION 

MAXIMUM  EXECUTION  TIME  200  MS 
END 

IMPLEMENTATION  ADA  gui_ii5)ut_event_mQnitor 
END 

OPERATOR  gui_out 
SPECIFICATION 
INPUT 

gui_oiit_str :  target_data 
END 

IMPLEMENTATION 

GRAPH 

VERTEX  cmds_out 

EDGE  gui_out_str 
EXTERNAL -> 
cmds_out 

CONTROL  CONSTRAINTS 
OPERATOR  cmdsout 
TRIGGERED  BY  SOME 
gui_out_str 
END 

OPERATOR  jstars_op 
SPECIFICATION 
INPUT 

emission^str :  UNDEFINED_TYPE_NAME, 
gui_m_str :  myunit 
OUTPUT 

Target_arrayl_str :  UNDEFINED_TYPE_NAME 
MAXIMUM  EXECUTION  TIME  500  MS 
END 

IMPLEMENTATION  ADA  jstars_op 
END 

OPERATOR  lanl_lmk_op 
SPECIFICATION 
INPUT 

grcsjan_str :  UNDEFINED_TYPE_NAME, 
target_array3_str :  gmd_stat_mod_array, 
tibs3_str :  UNDEFINED_TYPE_NAME 
OUTPUT 

grcs Jan2_str ;  UNDEFINED_TYPE_NAME, 
target_array4_str :  gmd__stat_mod_array, 
tibs4_str :  UNDEFINED_TYPE_NAME 
MAXIMUM  EXECUTION  TIME  50  MS 
END 

IMPLEMENTATION  ADA  lanl_liiik_op 
END 

OPERATOR  Iaij2_link__op 
SPECinCATION 
INPUT 

fire_cmdl_str :  target_data 
OUTPUT 

fire_cmd2_str :  target_data 
MAXIMUM  EXECUTION  TIME  50  MS 
END 

IMPLEMENTATION  ADA  lan2Jiiik_op 
END 
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OPERATOR  rivet  joint_op 
SPECmCATION 
INPUT 

emission__str :  UNDEFINED_TYPE_NAME, 
gui_iii_str :  my^umt 
OUTPUT 

tibsl^str :  UNDEFINED_TYPE_NAME 
MAXIMUM  EXECUTION  TIME  500  MS 
END 

OPERATOR  scdl_link_op 
SPECIHCATION 
INPUT 

Target_arrayl_str :  UNDEFINED_TYPE_NAME 
OUTPUT 

target_array2_str :  jstars_anay 
MAXIMUM  EXECUTION  TIME  50  MS 
END 

IMPLEMENTATION  ADAscdl_lmk_op 
END 

OPERATOR  shooter^op 
SPECmCATION 
INPUT 

fire_cmd4_str :  target_data 
OUTPUT 

gui_out_str :  target_data 
MAXIMUM  EXECtmON  TIME  50  MS 
END 

IMPLEMENTATION  ADA  shooter_op 
END 

OPERATOR  targetemitter 
SPECIFICATION 
INPUT 

gui_in__str :  my_unit 
OUTPUT 

eimssion_str :  UNDEFINED__TYPE_NAME 
MAXIMUM  EXECUTION  TIME  500  MS 
END 

OPERATOR  targetemitterop 
SPECIHCATION 

MAXIMUM  EXECUTION  TIME  500  MS 
END 

IMPLEMENTATION  ADAtarget_emitter_op 
END 


MAXIMUM  EXECUTION  TIME  500  MS 
END 

OPERATOR  uavop 
SPECIHCATION 
INPUT 

gui_m_str :  my__unit 
OUTPUT 

uav^str :  UNDEFINED_TYPE_NAME 
MAXIMUM  EXECUTION  TIME  500  MS 
END 


OPERATORtibs__op 

SPECIHCATION 

INPUT 

tibsl_str :  UNDEHNED_TYPE^NAME 
OUTPUT 

tibs2_str :  UNDEFINED_TYPE_NAME 
MAXIMUM  EXECUTION  TIME  50  MS 
END 


OPERATOR  trackwoIf_op 
SPECIFICATION 
INPUT 

emission_str :  UNDEFINED_TYPE_NAME, 
gui_in_str :  my_unit 
OUTPUT 

trwolfl^str :  UNDEFINED_TYPE_NAME 
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APPENDIX  D. 


CAPS  MINI-TUTORIALS 
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The  following  are  a  series  of  mini-tutorials  which  describe  various  CAPS  actions, 
procedures,  and  concepts.  These  will  serve  as  a  basis  for  beginning  the  CAPS 
documentation  process.  An  index  of  subjects  is  provided.  All  examples  are  based  on  the 
prototype.  Reference  the  graphs  and  PSDL  files  in  Appendk  B  to  see  where  these 
operations  take  place. 

1.  Changing  or  Adding  a  Type  in  a  Working  Prototype 

2.  Creating  Functionality 

3 .  Removing  a  Bubble  fi'om  a  Working  Prototype. 

4.  Decomposing  a  Working  Bubble 

5.  Adding  a  Quit  Button 

6.  Making  a  new  version  of  a  prototype 


1 .  Changing  or  Adding  a  Type  in  a  Working  Prototype 

This  example  is  changmg  from  a  system  defined  type  (like  Integer)  to  a  user 
defined  type  (like  Target_data).  We  changed  the  tgt_num_steam  in  TACMSl  from  an 
integer  to  a  user  defined  type  which  we  created  and  tested 

In  the  PSDL  editor  do  this: 

1 .  Tell  CAPS  you'll  be  using  a  user-defined  type.  Invoke  the  PSDL  editor, 
go  to  the  blank  line  at  the  top,  and  click  an  empty  space.  Note  the  entry 
"psdl_components"  appear  at  bottom,  click  it.  Note  the  entry  "type" 
appear  at  bottom,  click  it,  see  the  TYPE  structure  at  the  top.  Type  in  the 
word  "target_data"  (or  the  name  of  your  new  type)  at  the  top,  press  Enter. 
Three  lines  below,  click  on  <type  implementation>,  then  at  the  bottom 
click  on  "Ada  implementation".  Click  off  to  the  right  of  "Ada 
Implementation"  to  propagate  the  change.  The  task  is  done  unless  you 
need  extra  fancy  stuff  like  adding  the  declaration  of  a  constant  for  defining 
an  initial  state  for  state  machines. 

2.  Now,  change  a  stream  to  the  new  type  (similar  steps  for  first  time 
declaration):  Go  to  the  DATA  STREAMS  declaration  in  the  root  node 
section  in  the  PSDL,  find  the  stream  in  question,  and  click  on  the  old  type  - 
it  will  now  be  underlined.  Edit/cut  structure,  then  either 
<decl_type_name>  or  <identifier>  appears  in  its  place. 

a.  If  you  cut  a  valid  type,  <decl_type_name>  appears  in  its  place. 

At  bottom,  click  on  "user_defined"  and  <decl_type_name>  above  changes 
to  <identifier>.  Above  now  type  in  the  word  "target_data"  (or  your  type 
name)  and  hit  Return.  Now  click  an5rwhere  in  the  open  space  of  the 
window  to  the  right  to  propagate  the  change. 
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b.  If,  however,  you  cut  IINDEFINED_TYPE_NAME,  then 
<identifier>  appears  in  its  place.  Just  type  in  the  new  type  name  and  press 
return. 


check  your  work... 
save  and  exit 
done  with  PSDL  changes 

3 .  If  you  ate  using  a  user  defined  type,  you'll  have  to  create  a  file  which 
defines  the  type.  So,  create  a  file  called  "<prototype>.<type_name>.a".  This 
file  will  contain  your  record  or  abstract  data  type.  It  will  contain  a  package 
called  "<type_name>_PKG".  Inside  the  package,  you  will  create  the  type 
starting  with  a  statement  like  "type  <type_name>  is  record" ...  "end  record".  If 
your  t5T)e  has  any  operations,  their  implementations  also  go  in  this  package. 


2.  Creating  Functionality 

This  section  shows  you  how  to  make  the  stub  files  for  your  CAPS  projects.  Note 
the  EXACT  NAMING  CONVENTIONS.  Fill  in  the  names  for  your  prototype,  operator, 
stream,  parameter  mode  and  stream_type  below.  The  filename  must  also  be  correct,  Ada 
is  not  case  sensitive  but  UNIX  is!  Name  the  file:  <prototype>.<operator_name>.a  i.e. 
"weather. temperature. a".  What  follows  is  a  skeleton  ada  file. 

—  Be  sure  to  "with"  any  needed  packages,  SPECIFICALLY  any  user  defined 
types!!! 

with  my_user_defined_type_PKG;  --  an  example  of  a  user  defined  type 

with  text_io;  ~  only  use  as  needed 


package  <operator_name>_PKG  is 

procedure  <operator_name>  (<stream_name>  :  in  or  out  <stream_type>  ); 
end  <operator_name>_PKG; 

package  body  <operator_name>_PKG  is 

procedure  <operator_name>  (<stream_name>  :  in  or  out  <stream_type>  )  is 
begin 

null;  —  YOU  put  functionality  here 

end  <operator_name>; 
end  <operator_name>_PKG; 
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3 .  Removing  a  Bubble  from  a  Working  Prototype. 

Start  in  the  graphics  editor.  Select  the  bubble  you  want  to  kill  then  press  delete. 
Now  return  to  the  SDE  and  look  for  remnants  of  the  old  operator.  Expect  to  see  error 
messages  about  multiple  roots.  Find  the  old  bubble  and  click  on  the  adjacent  word 
OPERATOR  and  all  associated  parts  will  be  underlined.  Select  Edit/Cut_structure  and 
the  underlined  parts  will  be  gone.  Click  in  the  open  area  to  the  right  in  the  main  window 
to  propagate  the  change. 

If  the  bubble  was  a  child,  inspect  the  PSDL  of  its  parent  to  ensure  aU  trash  is  gone. 
It  should  be.  Also  look  for  references  to  Operator  NONAME  ##.  This  is  a  sure  sign  that 
you've  confused  the  SDE. 

Save  and  exit.  Next,  edit  the  interface.  Remove  components  that  were  tied  to  the 
bubble  you  deleted.  Also,  check  the  ADA  code  for  any  components  tied  to  the  bubble 
deleted  because  their  interfaces  may  have  changed  due  to  deleted  streams.  Regenerate 
code  per  normal  steps. 


4.  Decomposing  a  Working  Bubble 

If  you  have  a  working  prototype  and  you  want  to  decompose  one  of  the  bubbles, 
here  is  a  checklist  of  all  the  things  you  must  do.  Note:  click  is  a  single  press  and  release  of 
the  left  mouse  button.  Click  and  drag  is  a  single  press  without  letting  go  until  you've 
moved  to  where  you  want  to  go. 

-  Open  the  PSDL  editor  for  your  prototype. 

-  Select  edit-graph 

-  Place  your  mouse  pointer  on  the  rim  of  the  bubble  you  want  to  decompose  then 

click. 

-  Select  graph/decompose. 

-  You'll  get  a  new  window.  Note  the  streams  from  your  previous  window  are  now 

at  the  bottom.  You  must  assign  each  of  these  to  your  new  children  bubbles. 
Those  labeled  "INPUT"  must  start  outside  a  bubble  and  end  in  one.  Those 
labeled  "OUTPUT"  are  just  the  opposite. 

-  Create  operators  per  normal  rules. 

-  For  an  external  to  input  stream,  select  (click)  the  stream  icon,  move  your  cursor 

to  a  point  outside  a  bubble,  click,  then  move  your  cursor  to  a  point  inside  a 
bubble,  click  again.  Label  the  new  stream  per  normal  rules  but  use  the  name  of 
the  stream  from  the  bottom  of  the  screen. 

-  For  an  input  stream  to  external,  select  (click)  the  stream  icon,  move  your  cursor 

to  a  point  inside  a  bubble,  click,  then  move  your  cursor  to  a  point  outside  a 
bubble,  DOUBLE  click.  Label  the  new  stream  per  normal  rules  but  use  the 
name  of  the  stream  from  the  bottom  of  the  screen. 
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Connect  the  above  bubbles  per  normal  rules.  Don't  forget  to  give 
names  to  these  connecting  streams.  Give  your  new  child  bubbles  names 
and  MET's  (if  needed).  Of  course,  if  you're  prototyping  a  real  system,  give 
real  names.  When  done,  select  graph/save  and  continue  then 
graph/edit_parent.  The  screen  vnll  return  to  your  prototype  screen.  The 
bubble  you  decomposed  will  now  have  a  double  circle.  Nothing  to  do 
here  so  just  select  graph/retum_to_SDE.  INSPECT  YOUR  PSDL 
specifically  look  for  the  string  "NONAME_##"  where  ##  is  some  integer. 

This  means  you  forgot  to  label  spmething  so  CAPS  did  it  for  you.  Go  back 
to  editing  the  graph,  select  the  offender,  and  change  its  name  fi’om 
NONAME_##  to  whatever  you  intended.  If  you  don't  want  it,  select  it 
then  press  delete.  When  you  again  return  to  PSDL,  the  problem  should  be 
fixed. 

NOW,  begin  editing  your  PSDL  as  follows: 

Go  to  your  parent  bubble  in  the  PSDL.  Note  that  it  is  much  bigger  and 
contains  information  about  it's  children  and  the  streams  that  connect  them. 

First,  assign  a  type  to  the  internal,  connecting  streams.  Click  on 
"<decl_type_name>".  At  the  bottom,  click  on  the  appropriate  type,  press 
return,  then  click  to  the  right  of  the  newly  entered  information  to  propagate 
the  change. 

While  still  working  in  the  area  of  the  parent,  assign  control  constraints 
to  the  children  as  needed.  Use  normal  rules.  DON'T  FORGET  to  trigger 
operators  as  needed.  Now  move  to  one  of  the  new  children  in  the  PSDL. 

All  types  should  be  filled  in  since  you  just  did  that  in  the  parent  area  and 
the  changes  should  have  propagated.  But,  note  that  the  last  line  that  reads 
<operator  implementation>.  Click  on  that.  Note  the  two  choices  that 
appear  at  the  bottom.  Click  on  ”ADA_  Implementation. "  In  the  PSDL, 
"<operator  implementation>"  changes  to  "IMPLEMENTATION  ADA 
<operator  name>".  [As  a  general  rule,  children  bubbles  have  an  "ADA_ 
Implementation"  which  means  that  you  will  write  an  Ada  package  for  them 
using  the  following  naming  convention:  "<prototype_name>. 

<operator_name>.a".  This  only  applies  to  the  children  bubbles  you  create 
as  a  result  of  decomposing  a  parent.  Don't  confijse  this  with  the  fact  that 
your  overall  prototype  is  a  parent  and  all  bubbles  are  actually  its  children.] 
INSPECT  THE  PSDL  AGAIN.  You  should  have  only  one  root  operator 
and  nothing  in  braces  "<  >". 

Save  and  exit. 

Go  to  your  files  for  this  prototype. 

You  may  already  have  a  ".a"  file  for  the  bubble  you  just  decomposed.  You 
don't  need  it  anymore  but  you  may  need  to  transfer  it's  fonctionality  to  some  of  it's 
children.  They  all  need  ".a"  files  and  you  must  write  them  from  scratch.  Section 
C  of  this  chapter  covers  this. 
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5.  Adding  a  Quit  Button 

The  current  CAPS  paradigm  does  not  specifically  have  a  quit  button. 
Instead,  the  user  places  his  cursor  in  the  active  prototype  window  and 
executes  a  "Control  -  C".  This  section  addresses  how  to  make  your  own 
quit  button.  Although  it  is  written  in  the  context  of  the  multiple  file 
approach,  the  concepts  are  transferable  to  the  single  file  approach. 

The  quit  button  will,  of  course,  trigger  a  mouse  event  which  will  be 
detected  and  acted  on  by  a  TAE  Event  Handler. 

Edit  the  interface  as  follows.  Modify  the  input  panel  and  select 
New  Item.  Create  an  item  with  a  name  that  reflects  the  operation  such  as 
“quit_op.”  The  title  is  “Quit”,  the  presentation  category  is  “Selection”, 
and  the  Presentation  Type  is  “Push  Button”  [other  options  like  “Radio 
Button”  will  also  work].  Click  OK  when  done.  Then  File/Save. 

You  are  now  going  to  generate  code.  Refer  to  instructions  elsewhere 
on  how  to  use  the  Multi-file  Approach. 

In  pan_mult_in_b.a,  under  the  event  handler  of  quit_op_Event,  just 
add  the  call  "global_b.Set_Application_Done".  This  procedure  sets  a 
global  "done"  variable  from  false  to  true.  The  code  fragment  could  look 
like  this: 

if  (tae_misc.s_equal(value(l),  "Quit")) 

Text_IO.put_line("In  atacms.pan^i_in_b.a,  user  selectedQuit'"); 

global. Set_AppIication_Done;  ~  sets  "done"  flag  to  true 

Three  other  packages  will  periodically  test  this  "done"  variable  to 
see  if  it  has  changed  from  false  to  true. 

This  is  programmed  already  in  the  body  of  file 
<prototype>.generated_tae_input_event_monitor.a.  The  call  here  will 
shut  down  the  TAE  windows.  We,  however,  must  make  minor  changes  to 
the  dynamic  and  static  schedulers  in  file  <prototype>.a.  Both  of  these 
have  tasks  that  run  in  infinite  loops.  Make  these  simple  change  these  to 
conditional  loops  with  a  function  call  that  checks  the  "done"  variable. 

Add  these  two  lines: 

with  global; 
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while  not  Global.  Application  Done  loop 

Note  that  this  is  invisible  to  CAPS.  If  you  regenerate  code  on  another 
version,  check  to  see  what  parts  of  the  above  changes  survived. 


6.  Making  a  new  version  of  a  prototype 

In  this  example,  let’s  say  you  want  to  create  a  version  1.2.  Change  directories 
to  the  prototype  you  want  to  revise.  Make  a  new  directory  (mkdir  1.2).  Change 
directory  to  the  new  version's  directory  (cd  1.2).  Do  a  recursive  copy  of 
everything  that  was  in  the  1.1  directory  (  cp  -rp  ../l.l/*  . ). 
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